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RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 
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RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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RTITLE "CAPTION = Generate figure, table and le capti 
! <BLF /NOF ORMAT> 9 and example captions’ 


MODULE caption (IDENT = ‘v04-000' 
£8L1SS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 
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BEGIN 
t <BLE/FORMAT> 
1 i <BLF/LOWERCASE_USER> 
1 i<BLF/UPPERCASE™ “KEY> 
| <BLF/MACRO 
1 i 
oi _apemanaranapicpree sarees oe nn co merece 
® we 
01 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
01 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
01 te ALL RIGHTS RESERVED. * 
. w 
0 ie THIS SOF TWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
it ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
ix INCLUSION OF THE ABOVE COPYRIGHT N NOTICE. THIS SOFTWARE OR ANY OTHER * 
00 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
99 ie TRANSFERRED. x 
:* te 
99 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
99 ie CORPORATION. . 
00 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
§ is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
i 
| qunediiaheonethhddsmeabemtmennmandaies iiibhimasieeiinenaiedismameaiinegtasmas 
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004 i FACILITY: 
9 i “DSR (Digital Standard RUNOFF) /DSRPLUS DSRTOC/CONTENTS Utility 
0 i ABSTRACT: 


Format figure, table and example captions 
i ENVIRONMENT: Transportable 
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i AUTHOR: JPK 
i CREATION DATE: March 1982 
i MODIFIED BY: 
i 007 PK00010 05-Ma ay 1983 
Modi tied CONTENTS to change text for index record group to to all 
caps. Modified set irs fo change the number of blank Line 
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after the entity t ine. 
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14-Sep-1 RUNO T 


Jpn 9008 09-Mar-1983 
Modified CONTENTS and CAPTION to support new BRN formats, 
- page mNyeree CHOLES: 


output. 
ed FORMAT to quote gnty the RUNOFF flags used by CONTENTS. 
Modified CNTVMS to fix default for /DOUBLE_SPACE and do more 
value checking. 


JPK00007 14-Feb-1983 
Global edit of all sources for CONTENTS/DSRTOC: 
= module names are now consistant with file names 
- Gopyr ight dates have been updated 
facility names have been updated 
- revision history was updated to be consistant with DSR/DSRPLUS 


JPK00004 11-Feb-1983 

snanges the global variable name INDENT to LINE_INDENT in 
modules CONTENTS, CAPTION, FORMAT and GBLDCL. 

Removed declarations of POENTS in modules CNTVMS, CONTENTS, 
and CAPTION and replaced with a module wide BIND using the 
new name INDENTS. 

Changed handling of INDENTS C1]. It no longer represents the 
sum of the chapter and title indents. 


KFAQ0002 14-Oct-1982 

Modified CNTVMS, CONTENTS, CAPTION and CNTCLI.REQ to handle 
new syntax for /INDENT qualifier. ALL indents are ney 
stored in the vector CMDBLK CCONTENTSSAG_HL_INDENT (JJ, 
where 0 = chapter indent, 1 = header level One indent, etc. 


KFA00001 13-Oct-1982 
Modified CONTENTS and CAPTION to allow null captions for 
headers, examples, figures, & tables. 
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FORWARD ROUTINE 
hdr_x : NOVALUE 


strip : NOVALUE 
insrnt : NOVALUE; 


INCLUDE FILES: 


LIBRARY ‘NXPORT:XPORT'; 
REQUIRE ‘REQ:PAGEN'; 
REQUIRE *REQ:TOCRTY'; 


Process Figure, Table and Exenple captions 


Process SEND TOC temporary 8 
Remove Leading and trailing whitespace 
Insert text directly into output file 


Page reference format 
Table of Contents file formats 
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CAPTION CAPTION = G fi 4 -Sep- 750: - - -0- 
vO0-000 eee nree 0a. eee Som SAW 20 13-Sep-1984 #3:39:87 — YRUnore SReScaprioN cae tet 
17 M extlin = 0; 
17 M END 


RRR 
—O0o 


i, 
: 
' 
' 


OWN STORAGE: 


sss 


EXTERNAL REFERENCES: 


EXTERNAL 
cmdblk : $contents_cmd, 
tocoob : $xpo_iob 7), 


174 

175 

178 38 ! Insert specified character sequence into file, as is. 

178 M 0494 put (str) = 

179 M 0495 Pur BEGIN 

180 M 38 $str_copy (string = str, target = tmpstr); 

181 M 049 chrout = .chrout + .tmpstr Cstr$h_lengthd; 

135 s a8 $xpo_put (iob = tocoob, string = Empstr); 

184 z 8 } For TMS output, split the output file if it gets too large 

189 M 68 IF dblk Ccontents$ 11] THEN split () 
cm contents$v_tms split (); 

188 M 0504 A 4 

189 m 0505 END 

190 88 %; 

191 0 

136 08 ! 

19 09 ' EQUATED SYMBOLS: 

194 10 ! 

197 ig true = 

198 14 false = 

199 15 tab = %0'{1' : UNSIGNED (8), 

200 16 rintes = 20°34" : UNSIGNED (8), 

01 1 infinity = 1°(%BPVAL = 1) = 1; 

o8 15 

0 1 

04 

05 


—— © 


Command Line information block 
I0B for the resulting .RNT file 
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stciob : $xpo_iob (), 
chrout, 

tmpstr 
txtlen, 


tee : VECTOR £100) 
tS VeETOR C1000)” 


4 4 : VEC 

ae or, 

minor, 

pagen : page_definition, 
nxtstc, 

rno_ex : gstr_descriptor () 
rno_fg : $str_descriptor () 
rno_tb : $str_descriptor () 
tms_ex : $str_descriptor () 
tms_fg : $str_descriptor () 


: Sstr_descriptor (), 


Ome mee ee mee ee mn me ee me mee mee meme me meme 


10B for send toc temp file 

Number of characters written to output file 
semper ery gtr’ 
hength t) 


Header Level counters 

Header level display characteristics 
Major record type code 

Minor record type code 

Current pa9e nuaber. 

Next SEND TOC value to process 
String constant ‘EXAMPLE 

String constant ‘FIGURES 

string constant ‘TABLE 

String constant ‘Examples’ 

String constant ‘Figures 


9 
CAPTION CAPTION = Generate figure, table and example ca 18. Sep-1984 AX-11 Bliss-32 ¥4.0-742 
¥04-000 ° — 1areh=}88e FSi8ki8s «— FAMNAE Bb Lege Re VanOe 742, 


tms_tb : eetr gover ioter (), ! String constant ‘Tables’ 
prestr : $str_descriptor (), bape lon pre enix 
Nepal $str_descriptor (), bape! on yore 
CHSPTR a ong Ties being built u 
intlin, Number of characters needed te represent text 


Number resulting print gost sie ons 

Buffer ; which Line is being built up. 

Number of characters in the converted page number. 
The text (lots of room) 

A CHSPTR ifheract pointer) 


extlin, 

pine : VECTOR CCHSALLOCATION (10000)], 

enpag, 

txtpag : VECTOR CCHSALLOCATION (50)], 
rpag, 


Number of characters in the converted section number 


ensct, 
txtsct : VECTOR CCHSALLOCATION (150)], The fam ots of ro -. 


ptrsct, A CHSPTR enone 08 poin 

rmargin, Used by ENDWRD for control Ling filling lines. 
wrap, Wrap — Lines around to here 

Line_indent; Assume this standard indentation before the text. 


IND 
indents = cmdblkCcontents$ag_hl_indent] : VECTOR; 
EXTERNA ROUTINE 
split : N 


5 el le eh tat et tal et ee 


Start new output file for TMS 
Generate formatted text 


insref : NOVALUE, Insert a page reference 


SNAP AAA AAA AAA MINNIE 
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pacpag, Format a page number 

pacbas, Convert a number to ASCII 

pacsec, Format a section number 

Pacxxx; Format : number using display code 
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PVP AAASM AIT IU IIIT 


RIF BLISS (BLISS32) 
THEN 


EXTERNAL ROUTINE 
open_error; 


File open error handling routine 


WN OOONOUL WN OO DCONOUES WN" ODOODNOULWN OW” 
Ok dd od 
@o 


oN NN 


Mororerorors 
Seat 


RFI 


eee Oe Oe Oe Oe Oe ws Oe Oe Be Be Se Be HSH SS SESH Oe Oe Oe SHOE Se SESH Se Se eee Se SeSsees 
POPIMIPOPORUNIPOPONoPonoTonony 


CAPTION 
v04-000 


HAIN WAI AAAI MAI 
Dan aabandasesste 
MOCO VNORUEWN—o 


6 


09090908 INI NII INN SIOOO 
FUN" O OONOUE WT" ODOANO 


oo 
co 


zu 
ad 
Mee 


ViIVmiIviviviwn CP, 


OOOGGOOCOOOOOOOOSCSOSOO 1° 


tal ak al ak ah Ab AL AL AL AL AL AD AL AL AL AD Ab de 


MEUM O COONAN EN OOONOULUM— 1 


COOCCOOCOCOOOOOOOOO 


33S 


NONE WN OOO NAUE WIN (OO ONOU LS WN —O 00 


SOOoOoOoOoooooooSooO 


PARAEARAAAAA AA AAA AA AO 


SOooooo 


cae eb ad kt ed ee a 


vv 
Xno-O 


ON 


CELA IPIP III III III at at tt hd 


Haiti PT et table and example ca 1$-52p-19 4 $9:30:93 AX-11_ Bliss-32 V 


0-742 
I; 


4, 
R x captions 14-Sep-1984 RUNOFF .SRCJCAPTION.BLI;1 


ZSBTTL ‘HDR_X = Process .HEADER x captions’ 
GLOBAL ROUTINE hdr_x ( 
job : REF $x 


144 


ob : po, fob 0, 
title : REF $sfr_descriptor (), 
Ht hag 

xt, 


txt_u 
) :"NOVALUE = 


FUNCTIONAL DESCRIPTION: 


This routine processes the .HEADER x Captions 


FORMAL PARAMETERS: 


job - address of tong file iob 

title = address of string descriptor of title 
info - information record type 

txt - text record type 

txt_u = unnumbered text record type 


IMPLICIT INPUTS: 


cmdblk = command Line information block 


IMPLICIT OUTPUTS: 


None 


ROUTINE VALUE: 
COMPLETION CODES: 


SIDE EFFECTS: 


None 


BEGIN 


LOCA, 
irst_record; 
IF .cmdblk Ccontents$g_headers] EQL 0 THEN RETURN; 


foe enti ot 
Poste 


n options = input, attributes = BINARY 
ZBL1S 


ue; 
= .10b e 
(BLISS$2) ZTHEN , failure = open_error %FI 


wet °° || eal (iob = .iob, fullwords = 2) EQL xpo$_normal DO 


i Process a record group 
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00 DR_X = Process .HEAD 
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' 
IND 
record header = .iob Ciob$a_data] : VECTOR; 


major = .record_header 93: 
minor = .record_header H 


SELECTONE true OF 
SET 
C(.major EQL maj runoff) AND (.minor EQL min_page)] : 
aecin j _Pag 


| Process a page reference 


$xpo, get (iob = .iob, fullwords = page_sct_size); 


page_ref = .iob Ciob$a_data] : VECTOR; 


MAP 
pagen : VECTOR; 


INCR i FROM 0 TO page_sct_size - 1 DO 
pagen C.i] = Ppeos ref C.il; 


END; 
END; 


bvmalor EQL maj_send_contents] : 
BEGIN 


Process a SEND CONTENTS record 


LOCAL 
type; 


type = .minor<0, X%BPVAL/2>; 
$xpo_get (iob = .iob, fullwords = 1); ! Get Length 
txtlen = ..iob Ciob$a_data); 


IF .txtlen GTR 0 
THE 


$xpo_get (iob = .iob, fullwords = CHSALLOCATION (.txtlen)); 


IF_.type EQL scon_comm 
THEN 


A command. Insert directly into table of contents 
ose” ((.txtlen, CHSPTR (.iob Ciob$a_data]))) 

BEGIN 

Text. Format it. 


iF -first_record 


BEGIN 
ut ('. TEST PAGE 7'); 


CAPTION CAPTION = Generate figure, table and example ca 18-5e “1984 23:50: AX-11 Bliss-32 V4.0-742 
v04-000 HDR_X = Process HEADER x sant ions : 14-Sep-19 4 #3:09;$7 ERUNOFF SRE CAPTION.BLI;1 

80 69 THEN 

si 23 BEGIN 

83 69 ! First one seen = generate title 

85 ; IF_.cmdblk Ccontents$v_tms11] 

8 ; THEN BEGIN 

88 0 e. o°* hs 

89 070 ™ 

By 070 IF .hl.n NEQ O THEN put (‘'Cvai5]"); 

, 6 0 pur ($str_concat ('*cOn*', .title, ‘'aa')); 

94 8 0 ELSE 

96 0 : 

44 8 F .hl_in NEQ 0 THEN put ('.SK2") ELSE put ('.SK1"); 

339 0 IF .indents CO] NEQ 0 
400 0 THEN 
rt 8 put ($str_concat ('.I-', $str_ascii (.indents (0]))); 
40 put (,title); 
404 ut ('.BLANK'); 
405 END; 
406 
407 hln = 1; 

first_record = false; 

409 3 


' 
; Initialize formatting parameters 
clr_line (); 
Line_indent = .indents (0); 
extlin = .Line_indent; 
wrap = .indents (0) + .indents (1); 
rmargin = .cmdblk Ccontents$g_page_width); 
IF _.cmdblk ECcontents$v_tms11] 
literal_text ('*clnta') 
pad ((.indents [0] + .indents C1] - .extlin)); 
IF .type EQL scon_txt 
THEN - “s 
BEGIN 


i Generate the page number so as to get its length. 
} This is needed so that the proper number of dots can be supplied. 
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74 : 
, oe ptrpag = CHSPTR (txtpag); 
5 750 IF NOT .cmdblk Ccontents$v_standard_page] 
36 751 THEN 
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Ste Dh De Sek el Sek ek Se kta al ak te tah ta ele 
HPAI Be 
SOODONAUEWN—OOONOU LS wr 


<e 


APAOCUMAIVIUIVIUILA «=o 


AACA 
NOUS WN OODONAOUE WI" OOONOULS UT | 


a P, 


OOOO OOWWOODCD OD COCO COCO“ 
MEW —OOONOULS WIN —O0O@ 


PUPS Be BS BS BS BS BB BB BB MMA IPP DITION OP OP OP OF 


ON Hpanstagy A at and example ca 1§.29 ~300- 138% $9:30:98 AX-11 Bliss-32 V4.0-742 


RUNOFF .SRCJCAPTION.BLI;1 
lenpag = pacbas (.pagen Csct_run_page], ptrpag, 10) 
lenpag = pacpag (pagen, ptrpag); 

END 

lenpag = 0; 


ons 14-Sep-1 


' 
Set Limit beyond which words must be wrapped 


rmargin = .cmdbLk Ccontents$g_page_width] - .lenpag - 1; 
wrap = -extlin; 


Scan text(if any) and put it(may be null caption) onto the Line. 
fmttxt (.txtlen, CHSPTR (.iob Ciob$a_datal)); 
. type EQL scon_txt 


an POE () ! Insert page reference 
BEGIN 


eat Ccontents$v_tms11] THEN write_char (%C'a'); 
' 

: Now actually put this Line of text into the file 

put ((.intlin, CHSPTR (Line))); 

ae line (); 


END; 


et mpler EQL maj_runoff) AND (.minor EQL .info)] : 
BEGIN 


: A caption information record 
LOCAL 
prefix_len, 
suffix_len; 
1 
Get caption counter, display descriptor and prefix text length 


$xpo_get (iob = .iob, fullwords = 3); 
BEGIN’ 


BIND 
info_vector = .iob Ciob$a_data] : VECTOR (3); 
hllist 697.7 . info, yeeter ia; ' Save the counter 
hldsp ‘ info_ Vector C i the display descriptor 
prefix. len = .infO_vector (23; / and prefix string length 


PUP PUSISISISISISIVIVIIUT &~ 
LEFRANLSSSLE 


—4 00 
OOM 


WIWWAAIPI PIPPI PINIPYININIDS 2 SS SS 


So MEW 0 OONOUES WN ("OO ONAUVESWN —OOONOuS wr 


QPUPUPVPVDVDPVDPVPVPVPUDUDIVDVIVUDUSUSIDUDVU USUI 


10 

Ot process <MEADER x’captions > vanple &@ 1e$e0-1984 3:08:87 ERUNorr SReacAP 
END; 

Get prefix text if any 

IF .prefix len NEQ 0 THEN S$xpo_get (iob = .iob, fullwords = CHSALLOCATION (.prefix_len)); 
$str_copy (string = (.prefix_len, CHSPTR (.iob Ciob$a_data])), target = prestr); 

Get length of suffix text 


$xpo_get (job = .iob, fullwords = 1); 
suffix len = .(.iob Ciob$a_datal); 


Get suffix text if any 
if -suffix len NEQ 0 THEN $xpo_get (job = .iob, fullwords = CHSALLOCATION (.suffix_len)); 
$str copy (string = (.suffix_len, CHSPTR (.iob Ciob$a_dataJ)), target = sfxstr); 


V4.0-742 Page 10 CAF 
1ON.BLIs1 9 02) v04 


<e 
oe 
2 


T 


+S .maler 6 maj_runoff) AND (.minor EQL .txt OR .minor EQL .txt_u)] : 
' 


Process the text part of a caption. 


8 CAL 
needed_fill; 

83 | 

Oas First read the number of characters needed to represent the caption 
OB $xpo_get (iob = .iob, fullwords = 1); 
Bee txtlen = .(.iob Ciob$a_datal); ! Save text Length. 

084 i Generate a table of contents entry even if the caption 

oes has no text associated with it 

O84 if .txtlen NEQ 0 

84 THEN 

4 $xpo_get (iob = .iob, fullwords = CHSALLOCATION (.txtlen)); 


' 
Initialize formatting parameters 


clriline (); 

Line_indent = .indents (OJ; 
extlin = .Line_indent; 
wrap = .indents C i + ,indents (1); 
rmargin = .cmdblk Ccontents$g_page_width); 


FUSS IN Ee 


a 
MEAN @§ 9 ODNAWE WO OD NAME WIN OOONA UE WN OO ONAOUES WN" OWOWODVNOULSWIN—O0 1 


IF .first_record 

TH 
BEGIN 
First one seen - generate title 
iF .cmdblk Ccontents$v_tms11) 


Ne tt tt tt tt ot ot ot ot ot ot ot tt eee 


ttotatottetetoetete 


10 
PTION = Generate figure, table and example ca 18-20 -1984 23:50: AX-11 Bliss-32 V4.0-742 P 1 
X = Process HEADER x Captions 127808- 1382 $309.99 YRUNOFF SRE CAPTION.BLI;1 = 3} 


THE 


CAPT 
vo4~000 
N 

BEGIN 

put (''); 

IF .hl_n NEQ 0 THEN put (‘Cval5]"); 

pus ($str_concat ("*cOne', .title, ‘aa')); 
ELSE 


ut (". TEST PAGE 7"); 
F .hL.n NEQ 0 THEN put ('.SK2") ELSE put ('.SK1"); 


if , indents CO] NEQ 0 
put ($str_concat ('.I-', $str_ascii (.indents ([0)))); 


ut (.title); 
put (* BLANK"); 


Generate number if either the user said include 
all header numbers up to some level GEQ 1 or 
header numbers should be displayed as input and 
this was a numbered head. 


oo 
SR 
VPP DEPP PD PPPS ES IO SIO OP I BS BB IIIA AAAAAAAOOAOUE OOOO OOU 


= 


PUPS 
QESEANLESELEAREANSLSSSVSARANISSHISAPRER IS Seer 


3 O88 

8 

o8 hlin = 1; 

88 first_record = false; 

43 END; 

O58 IF .cmdblk Ccontents$v_tmsi1] THEN Literal_text (‘*cin*'); 
3 +H IF “cndbth Ccontents$v_include_sections] 
‘ +94 agenqele Ccontents$g_sections] GEQ .hl_n) 
: 3897 (.cadblk KeantenteSe_spet ions) EQL -1) 
2 898 AND (.minor NEQ .txt_u) 

899 ) 
5 900 
: 0901 THEN 

306 EGIN 
; 90 


Be Se Se Ge Fe Se Se Ge Se Ge Fe Se Ge Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Ge Fe Ge Ge Ge Se ee FH Se Ge Se Se Ge Se Ge Fe oe Ge Se Se Oe Se Se Se Se Ge SF Se SH Se Ge Seas 


908 ! 
04 trsct = i (txtsct); 
ay ensct = 0; 
91 IF .pagen Csct_typ] NEQ 0 
98 318 THEN ae 
99 4 BEGIN 
601 916 Document is divided into sections 
: aig iensct = .lensct + pacsec (pagen, ptrsct) + 1; 
91 CHSWCHAR_A (2C‘=", ptrsct); 
5 920 END; 
O06 921 
60 922 lensct = .lensct + pacxxx (.hllist (OJ, ptrsct, .hldsp (0)); 


Be Se Ge Se Se Se Se Se Fe Ge Fe Se Ge Se Se Ge Be Ge Bs Ge Ge Fe Se Ge Fe Ge Fe Ge Se Ge oe FH Se Se oe Se Se Se SH Ge Se Se Se Se SF Sse Fs Se Se SF oe Se Se See te ee 
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DARA AAAAAAAAAAAA AAA AAAS O 
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on 
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‘SSIISIISS 
ONO SWIM —O 


PAAAAVINAVIMIU 


OCONOUEW—OO 
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BEZSS 


—4 


DONA V EWN "OOOO wt 


WNMIWWIWIIWwmwsnorororeroroen = 6220 


WDOODOOOOOOOOOOOODOODOOODOODOO0OON0OO OCP 


PUPAE BE EPP LEE 


DCOOOSCOSOOOSOOOOOOOOOOOOOOOOOOOOOOOOOOOOD 0 
BSOOOOOOOOOD 


WN 9 OONAUES WN" O OONOULS WN —O 


SOS 


$ 
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>] 
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ON = Generate fi 
- Process .HEAD 


re. tae ¢ and example ca 15-Sep-1994 3:50:38 AX=-11 Bliss-32 V4.0-742 Page at CAP 


RUNOFF ..SRCJCAPTION.BLI;1 2 v04 


' 
Write the prefix string if any 


IF_.prestr Cstr$h_length) NEQ 0 
THEN 


fmttxt (.prestr Cstr$h_length], .prestr Cstr$a_pointer]); 
' 
Write the entity number 


fmttxt (.lensct, CHSPTR (txtsct)); 

Write the suffix string if any 

IF _.sfxstr Cstr$h_length] NEQ 0 
BEGIN 


IF CHSNEQ(1,CHSPTR (UPLIT(2%C':')), 
»Sfxstr Cstr$h_length], .sfxstr Cstr$a_pointer]) 


fmttxt (.sfxstr Cstr$h_length], .sfxstr Cstr$a_pointer]); 
END; 
aay -cmdblk Ccontents$v_tms11] THEN write_char (%C° °, counts_visually); 


if gemdblh Ccontents$v_tms11) 
write char (%C‘'a') 


ELS 
pad ((.indents [0] + .indents [1] - .extlin)); 


Generate the page number so as to get its length. 
This is needed so that the proper number of dots can be supplied. 
ptrpag = CHSPTR (txtpag); 
Roy -cmdblk Ccontents$v_standard_page] 
BEGIN 
; Use the running page counter instead of a real page number. 
Lenpag = pacbas (.pagen Csct_run_page], ptrpag, 10); 


ELSE 
BEGIN 


Supply the usual page number. 
lenpag = pacpag (pagen, ptrpag); 


CAPT APTION = igure, - :50: . ; 
vou-000 toh. = Procose “AGIOEN S’cuotions = ente #8 1fedeo-t9ge 13:09:37 — YRUnore’SRedcaPrion ac tet a 


; 665 : 9 : } Set Limit beyond which words must be wrapped 

; 5 9 4 lucrate = ae Ccontents$g_page_width] - .lenpag - 1; 
‘ M 2 wrap = .ext in 

3 er 3 5 4 Scan text(if any) and put it (may be null caption) onto the Line. 
; er M4 ; ? fmttxt (.txtlen, CHSPTR (.jiob Ciob$a_data])); 

: ore 9 ; ? Insert page reference into Line if desired. 
aie papa 

: ore Bar ? Now actually put this Line of text into the file 

; 680 995 4 t ((.intlin, CHSPTR (Line))); 

; eat 996 4 ate Line (; ve: 

7. ce ae 

; $8 TES; 

3; 685 1999 

: 88s 1003 iets 

ons 1908 page stone (iob = .iob, options = remember); 


-TITLE CAPTION CAPTION = Generate figure, table and ex 
; ample ca 
-IDENT \v04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


00 P.AAA: .BLKB 0 3 

50 35 31 ¢} ¢ 5B 00000 P.AAB: .ASCII \€vai5)\ 3 

2A 6E 30 63 2A 00006 P.AAE: .ASCII \ecOn*\ 3 

40 40 bee P.AAF: ASCII \@ea\ 3 

37 20 45 47 41 50 20 54 3 45 54 2E 8 P.AAI: .ASCII \.TEST PAGE 7\ g 
2 48 ; E 4 P.AAJ: .ASCII \.SK2\ 3 

4B E 19 P.AAK: .ASCII \.SKIN 3 

20 49 2E P.AAM: .ASCII \.1I-\ F 

48 4E 41 4C 42 2€E 1 P.AAO: ati }SLAeee ; 

00 00 40 2A 6E 31 63 2A P.AAP: .ASCII \#cin*a\<0><0> 4 
P.AAQ: .BLKB 0 3 

5D 5S 35 1 7 38 P.AAR: .ASCII vCvgt3a\ PF: 

A 6—€ 30 6 A A P.AAU: .ASCII \#cOn*\ 3 

40 40 F P.AAV: .ASCII \@a\ 3 

37 20 45 47 41 50 20 54 45 54 2€ 1 P.AAY: .ASCII \.TEST PAGE 7\ 3 
4B E 4D P.AAZ: .ASCII \.SK2\ : 

4B E P.ABA: .ASCII \.SKIN ; 

D 4 E P.ABC: .ASCII \.I-\ 3 

4B 4—€ 41 4C 4 E P.ABE: “Aeeat )-SLANK\ ; 

00 00 00 2A 6E 31 A éb P.ABF: .ASCII \#cin*\<0><0><0> 3 
0080008A P.ABG: .LONG 58 3 


04-000 


CAPTION = Generate fi gure. tab 


HDR_X = Process HEADE R x captio 


<8 and example 


ca 4.1 Sep-1 
1h-8ep-1 


Be §3:08:97 


AX-11 Bliss-32 V4.0-742 
RUNOFF .SRCJCAPTION.BLI;1 


»PSECT SOWNS,NOEXE,2 


0600 00000 S$STRSSTRING: 


an Bi 


00009006" 


ooo ooo oOo oOo OOO 
ooo coo coo coo ooo 


ooo 
ooo ooo oOo OOO COO 


ooo ooo ooo ooo ooo coo 
ooo coo ooo coo ooo 


one 


ooo 
Fuw WRN VYN No> som 
oor oo Oy COLw OCOOP,F GET 


on 
er 


ooo ooo 444 ++ ooo 
= 


SSTRSSTRING 


SSTRSSTRING: 
» WORD 
SSTRSSTRING: 
- WORD 
2 BYTE 
» ADDRES 
SSTRSSTRINGO: 
SSTRESTRING: 
8 SSTRSSTRING: 9 


ic SSTRSSTRING 


“BYTE 4, 1 
ADDRESS P.AAA 


SSTRESTRING: oho 


1 
“ADDRESS P ;AAB 


SSTRSSTRING 


ore 5 
BYTE 14, 1 
ADDRESS P.AAE 


“BYTE 4, 1 
ADDRESS P.AAF 


SSTRSSTRING: 
- WORD 


BYTE 14, 1 
sADDRESS P.AAI 
-BYTE 4, 1 
“ADDRESS P.AAJ 


-WORD 3 
BYTE 14, 1 
sADDRESS P.AAM 


"BYTE 14, 1 
.ADDRESS P.AAO 


-BYTE ot 
ADDRESS P.AAQ 


4 
00000000' ADDRESS P-AAR 
00 8 SSTRSSTRING 
re 5 
0000 0 FESS P’AAU 
$002. 5 sstassreidgte P 
91 “BYTE 14, 1 
00 099 ' “ADDRESS P.AAV 
0 SSTRSSTRING: 
«WORD 12 
01 OF O006A "BYTE 14, 1 


CAPT CAPTION = Generate fi gure. table and exampl 14.38 -1984 23:50: - - - 
voe-000 HDR_X = Process SHEADE R x smet tans soma dy 14- 730071382 #3:69:97 RUNOFFS $R ¢ CAPT YoWo BL iat hae 33 


000088 O0078 sstRESTRING: ' 


WORD 
5: Goork BYTE acs PAZ : 
78 SSTRESTRING: 4 
7A .BYTE 14, 1 
7 .ADDRESS P.ABA : 

080 SSTRSSTRINGO: 
«WORD 3 : 
2 BY TE 14, 1 : 
ADDRESS P.ABC : 

SSTRESTRING: , 


8A -BYTE 14, 1 : 
8C ADDRESS P.ABE ; 


-EXTRN CMDBLK, TOCOOB, STCIOB 
a Tht CHROUT, TMPSTR, TXTLEN 


“EXTRN RNO_TB, TMS-EX. TMS-FG 
-EXTRN TMS-TB, PRESTR, SFXSTR 
SEXTRN LP, INfLIN, EXTLIN 
-EXTRN LINE LENPAG TXTPAG 
“EXTRN bTRP PAG, LENSCT. TXTSCT 


“EX 
“EXTRN STRSFAILURE, 

-EXTRN XSTS$JOIN KSTSASCII 
SEXTRN XPOSCLOSE 

.PSECT $CODE$,NOWRT,2 


.ENTRY HDR_X, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
MOV $ TRSTARGET, Ri1’ 


CMOBLK+4 
1$ 


i=] 
ad ee HS eh 
o- 
2m 
m— 
or 


28 00000000G_ EF 
000000006 Ff 


#1, FIRST_RECORD 


BISL2 i} 65537, 46(R6) 
PUSHAB OPEN ERROR 
C SPY 


bh 
bed 
= 
om 
<-— 
r 


A 01 
6 ot AC 
$e A6é 00010001 4 
000000006 GF 


000000006 3 38 b 
sO 08 


muieD i 
— 


CALLS KPOSOPEN 
MOVAB Sein 
2$: MOV dene? 


on" 


SOMDS LF "OOOO LMVvVPMO 


Pete Se Se Se Se Se Se Sete Sete Sete te te 
o 
o 


o 
wDWonrnooonoerc7co—-9c0 on 


CAPTION CAPTION = Generate figure, table and example ca 
voe-000 HDR_X = Process SHEADER x Captions es 


ens: 


un 


10 
3p 1882 F8i08:97 «| FAMNoreeskeScABr Yon Cae te) Page (i¢ 


MOVB #2, 22 {6} 
44(R6) 


1 
1 

a} Move : 
000000006 BE 9F 0004 PUSHAB XPOSFAILURE F ; 
Bg Bath a ; : 
0006 EF F CALLS #3, XPOSGET : : 
a eee gi i : : 
» = A, Th ‘we! 
00000006 EF 60 D ; MOVL (RO), MAJOR : dg : 
Bo000000g EF “4 4 3 1 MOVL 4 (ROS, MINOR : Oe § ; 
02 000000006 EF D1 7A CMPL MAJOR, #2 F : 
Oc a 3 : 
0 04 $0 4$: CLRL = RO ; : 
01 000000006 EF 01 000 CMPL MINOR, #1 : : 
§ 06 0090 NEL ORO 
52 21 D2 00 92 5$: MCOML R1, R2 : ; 
5 ; CA 0009 BICL Re, R : : 
01 3 D1 00098 CMP RO. #1 : F 
0 if 0098 BNEG 7$ : ; 
34 Ab 19 BO 0009D MOVW #16, 52(R6) + 0653 : 
6 Ab 02 90 O00A1 MOVB #2, 54(R6) : : 
2c Ab 06 90 000A5 MOV #6, 44(R6) : : 
000000006 EF 9F OO0A9 PUSHAB XPOSFAILURE ; ; 
D4 OOOAF CL -(SP) : ; 
56 DD 00081 PUSHL Rg : ; 
000000006 EF Q FB 000B3 CALLS #3, XPOSGET : ; 
D4 OOOBA CLRL : 0661 ; 
00000000GEF 40 00 8840 00 OBC 6$: MOVL ag(R8)C1d, PAGENL1] > 0662 : 
: ” FFID 87. OOOEA ee. Gee to ? 0645 
04 000000006 FF D1 000CD 78: CMPL MAJOR, #4 > 0667 : 
ct a : 7 
59 000000006 EF 3¢ ops 8$ MOVZWL MINOR, TYPE : 0675 ; 
34 Ab 4 : £0 MOVW #4, 22 (RO) > 0676 ; 
6 Ab 2 E4 MOVB #2. 54(R6) : ; 
2c Ab 9 £8 MOVB #6. 44(R6) : : 
000000006 EF 9F OO0E PUSHAB XPOSFAILURE : ; 
BD OOF sist «RG ' 
900000006 EF F F6 CALLS i XPOSGET : ; 
00000006 FF 00 D ED MOVL a@O(RB), TXTLEN > 0677 3 
0 000000006 EF DQ 001 MOVL § TXTLEN, RO : 0679 : 
+ (8 ool0E Bo Opt, R ? 9681 : 
30 4 6 001 DIVES #4; R : ; 
34 AG 4 AS 00114 LW3 #4. RO, 52(R6) : : 
36 Ab 119 VB soa. SS (Ro) ; : 
tw 1 p VB #6, &4(R6) : ; 
000000006 EF F 001 PUSHAB XPOSFAILURE ; : 
D4 00127 LRL ss = (SP) F : 
56 DD 00129 PUSHL R6 : : 


10 
CAPTION CAPTION = Generate figure, table and example ca 1$-5¢ -1984 23:50: AX-11 Bliss-32 V4.0-742 Page 17 
v04~000 HDR_X = Process SHEADER x captions 4 12286 0-1 382 #3:09:$3 RUNOFF .SRCICAPTION.BLIs1 . (2) 

000000006 EF FB 001 CALLS #3, XPOS$GET : : 
H me RE eee ae jes} 
6E 000000006 EF 1 MOVW TXTLEN, SSTRSSTRING + 0688 ; 

a: 1 MOVB «#14, SSTRSSTRING+2 ; : 

AE 14 MOVB #1, SSTRSSTRING+3 : ; 

4 AE é p 14 MOVL (RB), S$STRSSTRING+4 ; ; 
000000006 EF 9F OOI4A PUSHAB STRSFAILURE ; : 

a a er ; : 

Oc AE BF 1 PUSHAB $STRSSTRING : : 

43 D4 00157 CLRL 13° ) : : 

000000006 EF 05 FB 00159 CALLS ' XSTSCOPY : ; 
0 68 3¢ 160 MOVZWL PsTR, RO : 

000000006 EF g 16 ADDL2 CHRO : ; 

000000006 EF és ; igh Soak OUTPUT. 10B$+68 ; ; 

000000006 _ EF 90 00171 MOVB +44 : ; 

000000006 cr 9F 00178 PUSHAB RPGSEAILURE : : 

oooo00006 EF oF SotaD SteiaB Toss ; 

000000006 EF O3 FB S186 CALLS pees XPOSPUT : : 

07 pooooobes EE d fe bo19s ate i 8 | ae 
rege ef 019C 10$:  BRW ; + 0683 ; 

03 SA é O19F 11$:  BLBS flasr. RECORD, 12$ > 0694 ; 

O2cr 31 O1Ag BRW 25$ : ; 

03 000000006 _ EF 01 £0 O01A5 12$: BS #1, CMDBLK, 13$ : 0700 ; 
0007 31 O1AD BRW 16$ : ; 

000000006 cr F 00180 13$:  PUSHAB STRSFAILURE + 0703 : 

E D4 001B6 CLRL = = (SP) : ; 

5B DD 00188 PUSHL R11 : : 

00000000° cr 9F OO1BA PUSHAB $STRSSTRING : ; 

: D4 001C0 CLRL = =( SP : F 

000000006 EF 05 FB ice CALLS #5, XSTSCOPY : ; 

0 6 3¢ 01C¢ MOVZWL T RPSTR RO : ; 

000000006 EF 5 g O01¢¢ ADDL2 RO OUT : ; 

000000006 EF 68 E 0 1D OVAB $yées0urPUT 10B$+68 : : 

000000006 EF 07 96 001DA MOVB OBS+44 : : 

000000006 EF F 131 PUSHAB RPOSE AILURE : : 

000000006 EF oF 1€9 PUSHAB 198s : F 

00000006 EF 3 Fe 1EF CALLS ‘ xPOSPUT : ; 
07 900000006 EF 1 £1 001F6 BBC #1. CMDBLK, 148 : ; 
00000006: EF 0 F F CALLS #0. SPLIT F ; 
000000006 EE p 148: ist H A, > 0705 ; 

L 3 : 

000000006 gE 9F PUSHAB STRSFAILURE : ; 

SB b> 0051 bust RIT 

00000000' i oF 1 PUSHAB SSTRSSTRING : 3 

0G EF B F CALLS #5, XSTSCOPY 9 : : 
comes FOO ue te | : 
0006 EF 68 t MOVAB SLooseurPyr. 10B$+68 : : 

G EF MOVB : : 
000000006 EF 9F E PUSHAB XPOSEATLURE ; : 


CAPTION CAPTION = Generate fi 
v04-000 HDR_X = Process .HEAD 
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ure, table and example ca 
R x captions 


000000006 
soooogge 
00000000' 
000000006 
0801 


F 
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00000000' 


000000006 
000000006 


000000006 
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00000000' 
000000006 


00000000° 


000000006 
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000000006 
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OE See ane enna been ee 


COOL LOIS VNOOW™ 


Woo 9 MMOD OOODOWNST OTTO oT 7o 0o-"-"—O " 
OS FW $9 BL NOM LS L190 FMD 


a 43:68:97 


CLRL 
PUSHAB 
CALLS 
BBC 


RUNOFF .SR 


#5, XSTSCOPY 

TMPSTR, RO 

RO, CHROUT 

$10BS0uTPUT, 10B$+68 
10B$+44 

XPO$FAILURE 

-(SP) 

1088 

#3, XPOSPUT 

#1. CMDBLK, 17$ 

#0, SPLIT 

HL N 

18$ 

STRSFAILURE 

=(SP) 

R1 

SSTRSSTRING 

STRSFAILURE 

=(SP) 


R11 

SSTRSSTRING 

as KSTSCOPY 
TMPSTR, R 
RO cHROUT 

$18 OUTPUT, 10B$+68 
97, 10B$+44 
XPOSFAILURE 
(SP) 

10B$ 

#3, XPOSPUT 

#1. CMDBLK, 20S 
#0. SPLIT 
JNBENTS, RO 

1$ 
=(SP) 
2 
#2307, -(SP) 


AX=11 Bi lege 3g v4. 
CJCAPTION 


CAPTION = Generate fi 
HDR_X = Process .HEAD 
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000000006 


a 


000000006 
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ure, table and 
R x captions 


00000000' 
000000006 
0801 


000000006 
000000006 
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example ca 
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Sas 


RUNOFF. SRC 
#3, XSTSASCII 
SSTRSSTRINGO 
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11 
CAPTION CAPTION = Generate figure, table and exam -Sep- :50: -1 - .0- 

vou-000 HDR_X = Process SHEADER x stations —* 18-Sep-1984 $3:09:97 RUNOFF SRE CAPT YON BL iat sae 3) 

50 3 EB MOVZ2WL TMPSTR, RO ; 

9 G EF i § EE ADDL2 RO cHROUT : 

O000G EF 89 98 OOS BOVAS — S)OBsqUTTYT. loasees 

000000006 EF OF 5 PUSHAB XPOSFAILURE : 

E p4 CLRL = = (SP) : 

poon00eg ep PCOIOms FE PE Bnete PACS. AS. xPOSPUT ; 

03 iitddiitts EF x j 4 at BBS “, CMDBLK, 34$ ; 
RB a ars 

0C AC 000000006 Y bi O8 CPL MINOR, INFO : 

§ Dg 6 INCL RO : 

52 31 D2 00634 36$ MCOML R1, R2 : 

50 : CA 00637 BICL2 R2. RO ; 

01 50 D1 O063A CMPL RO, #1 : 

03 13 0063D BEQL 4 6_-37$ : 
34 Ab oort 30 Seep 37$ acvw HD 52(R6) : 0800 

36 AG 02 90 asus MOVB #2, 54(R6) : 

= @& 06 90 0064A MOVB #6, 44(R6) : 

000000006 EF 9F 0064E PUSHAB XPOSFAILURE F 

7E D4 00654 CLRL = = (SP) : 

56 DD 00656 PUSHL Rs ; 

000000006 EF 03 FB 00658 CALLS #3, XPOSGET : 
0 68 DO 0065F MOVL (RB), R + 0804 
000000006 EF 60 DO 00662 MOVL (RO); HLLIST > 0806 
000000006 EE 04 AO DO 00669 MOVL 4 (ROS, HLDSP : 0807 
2 08 AO 0 00671 MOVL (RO), PREF IX_LEN ; 0808 
25 13 00675 BEQL 8$ : 0813 

50 03 A2 9E 00677 MOV (R2), RO : 

50 04 C6 0067B DIVL2 #4, RO ; 

34 AG 50 04 AS O67E MULW3 #4, RO, 52(R6) : 

36 AG 2 90 0068 MOVB #2, 54(R6) : 

2c Ab 06 90 00687 MOVB #6, 44(R6) F 

000000006 EF 9F 00688 PUSHAB XPOSFAILURE : 

E D4 0691 CLRL = = (SP) : 

56 DD 00693 PUSHL $ F 

000000006 EF : FB 0695 CALLS #3, XPOSGET : 
6E 8 069C 38$:  MOVW PREFIX LEN, $STRSSTRING + 0815 

02 AE OE 069F MOVB #14, SSTRSSTRING+2 : 

0 AE 01 9 ny MOVB #1 RSSTRING+3 3 

04 AE 68 p A MOVL (RB), $STRSSTRING+4 : 

000000006 EF F GAB PUSHAB STRSFAILURE : 

E 04 0068 CLRL = = (SP) ; 

000000006 EF 9F 6B PUSHAB $STRSTARGET : 

OC AE OF 68 PUSHAB $STRSSTRING : 

43 D4 006BC CLRL = = (SP) : 

000000006 EF F 6B CALLS #5, X TscoPy : 
4 6 4 C MOV #4; 52(R6) : 0819 

6 Ab ; 69 MOVB a2, (R6) : 

6 CD MOVB #6, 44(R6) ; 

000000006 EF 9F 00601 PUSHAB XPOSFAILURE : 

E D4 00607 CLRL = = (SP) ; 

6 DD 00609 PUSHL R6 : 


11 
CAPTION CAPTION = Generate figure, table and example ca gut -1984 :50: AX-11 Bliss-32 V4.0-74 

v04~000 HDR_X = Process “HEADER x mastions : 1278681382 $3:39:$9 RUNOFF SRe CAPTION BLIs1 cee 3 

000000006 EE 03 F 60 CALLS #3, XPOSGET ; 
2 00 8 p OE HOVE (RB), SUFFIX_LEN : 9820 

03 A2 9 E MOV (R2), RO : 

4 ¢ EC DIVL2 #4, Rb : 

34 AG 4 A EF MULWS #4, RO, 52(R6) : 

36 A6 2 3 6F4 MOVB #2, 54(R6) : 

C Ab 6 F8 OVB #6, 44(R6) : 

000000006 EF oF O06F PUSHAB XPOSFAILURE : 

E D4 CLRL © =( SP) : 

000000006 EF 3 DD 80s Seee OS uPOSGET : 
EE : : 70D 39$:  MOVW Sul FIX LEN SSTRSSTRING + 0826 

02 AE OE 710 MOVB #14, SSTRSSTRING+ : 

03 AE 01 90 00714 MOVB #1, SSTRSSTRING+3 ; 

04 AE 68 DO 00718 MOVL (RB), $STRSSTRING+4 ; 

000000006 EF oF Orit PUSHAB STRSFAILURE : 

E D4 007 CLRL = =( SP) : 

000000006 EF 9F 00724 PUSHAB $STRSTARGET : 

OC AE OF 007 A PUSHAB $STRSSTRING ; 

43 D4 00720 CLRL =(SP ; 

000000006 EF 05 FB O072F CALLS #5, XSTSCOPY : 
F904 31 00736 40$:  BRW 2$ + 0645 
52 04 00739 41$:  CLRL  R2 + 0829 

10 AC 000000006 EF D1 0738 CMPL MINOR. TXT : 

; 12 0074 BNEQ 42$ : 

52 06 00745 INCL Re : 

50 D4 00747 42$:  CLRL RO ; 

14 AC 000000006 EF 01 00749 CMPL MINOR, TXT_U ; 

08 12 00751 BNEG 43$ : 

5 06 00753 INCL. RO ; 

50 52 C8 00755 43%: BISL2 R2. R F 

53 51 02 00758 MCOML RI. R : 

50 53 OCA 0758 BICL2 R3. RO F 

01 30 D1 0075E CMPL RO # F 

D3 12 00761 BNEG 40§ : 
34 AG 4 : 0763 MOVW #4, 52(R6) + 0840 

36 AG 2 076 MOVB 2, 54(R6) ; 

2c A 6 90 00768 MOVB 44(R6) F 

000000006 EF OF O76 PUSHAB XPOSFAILURE ; 

36 DD 0077 PUSHL $ : 

000000006 EF 03 FB 00779 CALLS # o$ : 
000000006 FF 00 BB DO 007 MOVL @OC(RB), TXTLEN > 0841 
0 000000006 F b f MOVL TXTL ¥ ; 0846 
50 3 cd 00791 ADDL2 #3, R + 0848 

0 4 ¢6 007 DIVL2 #4. ; 

34 AG 50 4 A5 00797 MULWS #4, RO, 52(R6) ; 

36 Ab 2 3 7 ¢ MOVB Ae (ré) ; 

C Ab 6 7A MOVB oft (R6) ; 

000000006 i 9F OO7A4 PUSHAB XPOSFAILURE : 

D4 OO7AA CLRL <-(SP ; 

00000006 EF 83 PB BOs AE Peet Oe uposcet ; 
itdiitds EF 900000006 EF 3 73s 44$:  MOVAB LINE, LP > 0853 

G EF 04 007¢ CLRL —sSINTLIN ; 


11 
CAPTION CAPTION = Generate {igure. table and example ca 18.38 =1386 $3: 30:93 AX-11 Bliss-32 V4.0-742 Page 33 
v04=000 HDR_X = Process .HEADER x captions 14-Sep-1984 13:05: RUNOFF .SRCJCAPTION.BLI;1 (2) 
G EF 04 007C6 CLRL = EXTLIN ; 
G EF G EF D 1c¢ MOVL  INDENTS, LINE_INDENT : 854 
G EF G6 EF DO 0070 MOVL_ LINE INDENT EXTLIN + 0855 
000000006 EF G EF sh ¢ {Eg ADDL3 INDERTS+4, INDENTS, WRAP : 896 
00000006 FF 00006 FF DO O07F OVL CMDBLK+24 RMARGIN + 085 
fm A é i BLBS T penteee 45$ : 0859 
03 000000006 EF 64 6 6 45$:  68BS #1, CMDBLK, 46$ + 0865 
0007 5 B BRW 49$ : 
000000006 cr F OF 46$:  PUSHAB STRSFAILURE + 0868 
BS Bae GP : 
00000000' cE BP i8 PUSHAB $STRSSTRING ; 
: D4 0081 CLRL = = (SP) : 
000000006 EF 05 FB CALLS #5, XSTSCOPY : 
0 $8 3 MOVZWL TMPSTR, RO ; 
000000006 EF § A ADDL2 RO, CHROUT ; 
000000006 _ EF 68 : 08 1 MOVAB $10BS0UTPUT, 10B$+68 ; 
000000006. EF 7 9 8 MOVB #7, 10B$+44 ; 
000000006 cr OF 0083F PUSHAB XPOSFAILURE ; 
000000006 EF SF Sond? Sistas Toss. ; 
000000006 EF 03 FB 0084D CALLS ie XPOSPUT : 
07 00000000G_ EF 1 £1 00854 BBC #1. CMDBLK, 47$ ; 
00000000G_ EF 00 FB 00 3¢ CALLS #0. SPLIT : 
000000006 EE p 0863 47$: sit H A. ; 0870 
000000006 cf 9F 0868 PUSHAB STRSFAILURE : 
cE OS O08 ys piste ati ; 
00000000' EF OF 0873 PUSHAB $STRSSTRING : 
i D4 00878 CLRL oe : 
000000006 EF 05 FB 0087D ALLS #5, XSTSCOPY : 
0 8 3¢ 6 84 MOVZ2WL TMPSTR, RO ; 
000000006 EF 5 £0 87 ADDL2 RO, CHROUT : 
900000008 EF 07 98 0089S ROVAS —$1O8S0UTPUT. 1088+68 
000000006 ai 9F 00 3 PUSHAB XPOSFAILURE : 
000000006 EF 9F OOBAS PUSHAB 1088, 
00000006 EF O3 FB AA CALLS Be XPOSPUT : 
ee A a ; 
cat EF oF i 48$: PUSHAB SSTRSSTRING2 0872 
00000000" Fr oF C PUSHAB $STRSSTRINGO : 
000000006: EF 3 FB OOBCF CALLS #3, XSTSJOIN : 
000000006 fF 9F 00806 PUSHAB STRSFAILURE : 
0801 af 8 D PUSHR  #*M<RO,R11> : 
019F ; e BRW : 
000000006 i F OOBES 49$:  PUSHAB STRSFAILURE : 0876 
ay a re | 
00000000' ai oF EF PUSHAB $STRSSTRING : 
D4 FS CLRL : 
000000006 EF 05 FB 008F CALLS #5, XSTSCOPY : 


. Page 24 
11 50: “11 Bliss-32 V4.0-742 3 
TION = Generate figure, table and example ca 1iSeortage 3:09:97 RUNOFF. SREICAPTION-BLI1 
G04_000 WORX - Process "HEADER x Captions ‘ nOvZuL Testa, RO : 
H ; 
G PP 3 ¢ i nOVAS s]¢B$0urPUT. 108$+68 ; 
gE 87 $6 O0soF MOVE #7, 1088444 : 
G EF PUSHAB XPOSFAILURE : 
000000006 §F 9 ac CURL | =(SB) ; 
000000006 EF 9F E Cte” bee xPOSPUT 
G EF 3 4 9 BBC #1, CMDBLK, 50$ : 
07 000090 be EF d Feo boos ALLS #0, SPLIT ; 0877 
90000006 EF FP 08 93h 508: TST oe. ; 
T ; 
oooo0000G gF oF $9 cea =(5P) 3 
ge Be Bhpen PUSHAB $TRSSTRING : 
00000000" EF 9F OO94¢ BRB (Sas ; 
ge OF GOOkS sis;  Poenam SfRSrAILURE : 
000000006 EF 9F 00954 5 CURL =A ; 

BF BD Rope PUSHAB SSTRSSTRING 

ww SO tt ose ee. tie : 

Ob Ee Shiee PEAS ae terscoy | 
wom OM RR ae GI : 
900000006 EF 9€ 0097 ta | ees 10 oo 
seen ff TE a MORE et : 
10000006 FF 00000006 FOF 00985 CLAL | =(SP) ; 

000000006 EF 9F 0098 euete” AS” xPospuT 
EF 3 FB 0099 BBC #1, CMDBLK, 53$ : 
900000006 EF 07 £1 0099A eee : 0879 
Ad ee ee — 
. 50 000000006 f 09 gee 598s BEQL 548, 28 
4 BD 0984 PUSHL 307, -(SP) 
7E 0903 ; 3¢ bees CALLS” #8, XSTSASCIL 
ee nee, p Bo a3 PUSHAB $STRSSTRINGO 
00000000' EF 9F 009C CALLS #2, _ XSTSJOIN : 
F 2 FB QO9CA PUSHAB STRSFAILURE 
700000006 FF 00000006 F 9F 00901 CURL (SP) a 
0801 SF BB 309 CURL A(SPD ; 

a Oe : 

000000006 EF 9E MOV ZWL ! 
a es) ca ee : 
OBS+ ; 
p 2890006 EF 07 s $7 PUSHAB XPOSFAILURE 
° 000000006 EF 9F OOSFE ee 
E 4 OA PUSHAB 10B$ : 
G EF z FB QbAdE BBC HT. CHDBLK, 548 
“s ssaanntt FF 0 FB OOAIB ag tn te 


° AX-11 Bliss-32 V4.0-742 Page 35 
- rate fi gure. table and example ca 5-0-1 , State te 3 
Gone AOR Kee neo SHEADE R x suet tans 4-Sep-1 1382 tf ie $3 RUNOFF .S ai 
000000006 cf oF A 3 54$: PUSHAB STRSF AILURE 
43 BD AOA PUSHL ait ; 
08 AC OD O0AcC PUSHL TITLE ; 
ae BS athe #5 xst8¢ PY ; 
ennai: 4 é8 3¢ A i move I I TMPST RO 
its EE F hee noVas Health 108$+68 ; 
3 retest oF x3 PUSHAB xP OSFAILURE ; 
000000006 EF f A USH xpos sp 
000000006 EF BP Ass PUSHAB ops Fike ; 
itdaitits Ef ; Ef Aes BC Hi. CMDBLK. 55$ 
m7 sespeemye Ef PHAM Bu Hh ree 
000000006 cr oF ae 55$: PUSHAB  $ st $F AILURE ; 
ATC PUSHL aii ; 
00000000' er oF Are nie PUSHAB $5 1RSsTRING ; 
#5, XSTSCOPY 3 
oon eS RE i am ; 
ittdittdts EF 4 § ytd mOVAB $1é8s0uTPUT. 10B$+68 ; 
itddittdts EF 7 90 009 MOVE Krbst Aicune ; 
000000006 i oF AA PUSH xP6 s 
000000006 EF 9F OOAA PUSHAB 198s Se 
ssomuegs ae ee 2 
vf §0090008 EF 0 FB OOAC CALLS #0, SP ult F anes 
tities EF 1 B8 One 57$:  MOVL if LN : 0887 
; bY Bape 58$ abe if Hist RECOr “598 : 0891 
1A 00 0 G EF : a § at ; 
aooooonds FF Sup99anR Hap Bia Bt : 
$00 5008 EF 5 ¢0 OOAED ADDL2 #5. INTLIN ps ~*~ 
0G EF 0 AF4 59$: BBS rT) CHDBLK. 6 ; 
pai: andi BY GOARC G08: ORPL eee HL_N : 0895 
000000006 EF 000000006 FF D1 OA 61$: CMPL CR » HL, ~ 
8F 000000006 EF D1 00B CMPL § CMDBLK+20, #-1 
abet E31 sh BNEQ  60$ _ 
14 AC 000000006 EF 01 00B19 CMPL MINOR. TXT_U ; 
BP oe bbe i sous Of TRSCT > 0909 
0006 EF 00 G EF 9€ 00B23 62$:  MOVAB. TXTSCT, P : 0909 
oe G EF B CLRL OL : Baig 
OF 8 G EF 3 B BITS BAGEN, #15 ; 
1H 13 00838 BEQL 63 pe 
G EF i B PUSHAB PTRSCT ; 
con gp OU HH eae Sie : 
sett ADDL2 LENSCT, R : 
a ee | ano 
2D ; 
eae 000000006 EF 06 00B66 INCL  PTREC 


CAPTION CAPTION = Generate figure, table and example ca 18-5 $ep-1984 #3:50:33 AX-11 BL isg-32 Vv V4.0-742 Page 3 CAF 


HDR_X = Process .HEADER x captions 4-Sep-1 RUNOFF .SRCJCAPTION.BLI;1 v04 
| aes j 2 
6 DD 008 PUSH HLLIST : 
99900006 EF 3 FB B ' CALL is. PACXXX : 
00 G FF B DBL RO. LENSCT : 
0 000000006 FF g : MOV ZUL BR STR, RO + 0926 
000000006 i Dp : PUSHL PRESTR+4 + 0928 
000000006 § FB 00B9D CALLS EMTTXT : 
“* gonp90n0e Be bo Shean busine Tatstt A sou 
000000006 ef 55 FA 880 ALLS LENSE FATTXT : 
000000006 FF 3¢ BB MOVZWL SFXSTR, + 0937 
F BB EQL 65$ : 
54 00 00000000" EF ccouonane 01 20 BC CMPCS #1, P.ABG, #0, R4, @SFXSTR+G + 0941 
OF 13 OOBC BEQL 65$ F 
000000006 EF pd 0806 PUSHL SFXSTRe4 5 0944 
a SRREESRRS ee ee one 
000000006 ‘FF 0 5 OBE? mMOVB #32, aLP : 
Boo0bbb0e EF be OOBEE ee i 
atdiitts F D6 BFA INCL  EXTLIN : 
16 000000006 EF 1 f C 668: BBC #1, CMDBLK, 68$ + 0951 
000000006 FF 0043 F 90 00C08 67$:  MOVB #64, aLP : 0953 
900 9000 G EF D6 00C1 INCL P : 
00000006 FE MF Soci oa me ? 0951 
57 000000006 EF 000000006 FF C1 OOCIE 68$ ADDL3 INDENTS+4, INDENTS, R7 : 0955 
00000000G_ EF 37 b o¢ A CHPL R7, EXTLIN ; 
57 000000006 FF C2 00C33 SUBL 2 EXTLIN, R7 : 

57 20 6E seaemnend 00 2c ¢ A movcS = #0, ae #32, R7, aLP : 
00000006 EF 57 C Othe ADDL2 R7, : 
BEE | comet Beno Hak Hint : 

0 G EF 000000006 EF C59 69S: VAB TxtPAg, spines : 0961 
18 $005 G EF 05 i ¢ § bs > 0963 
a Mee 
7E titi F zt ¢ f MOVZWL PAGEN+14, -(SP) : 
000000006 EF ; re ¢ CALLS #3, PACBAS : 
990000006 EF 3 (84 70$:  PUSHAB PTRPAG : 0976 
G EF 9F OOCBA PUSHAB PAGEN : 
0 G EF 63 FB 00C CALLS » PACPAG : 
G EF DO 00C97 71$: MOVL RO. LENPAG : 
50 G EF 00000000G EF ¢ C9E sUBL3L hae, CMDBLK#24, RO + 0982 
G EF AO ; CAA MOVAB (RO), ; 
G EF 000000006 EF v0 CB2 ROVE EXTLIN, URAP : 098 
000000006 Fe DD OOCBF PUSHL TXTLEN : 
000000006 _ EF 2 FB O0CCS CALLS #2, FMTTXT : 


3440 bytes, 


; Routine Size: 


CAPTION = Generate fi 
HDR_X = Process .HEAD 
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1 ae 
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RO 
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#8 
#3, XPOSCLOSE 


| 


AX-11 Blis 
RUNOFF . SRC 


+ 
SSTRSSTRING+3 
SSTRSSTRING+4 
ILURE 


CHROUT 
$108$0uTPUT , 10B$+68 
#7, 10B$+44 


~“ 
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Morororornorofnororyd 
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STCHDR'= Process the °SEN6 foccn captions tems. eo$ee=| 98 3:08:97 YAUnore’SREScAPrioN aL ts1 

5 ZSBTTL ‘STCHDR = Process the .SEND TOC n captions temp file’ 

$ PLOBAL ROUTINE stchdr : NOVALUE = 
| FUNCTIONAL DESCRIPTION: 

This routine reads the temp file, which contains page references 

\¢ and .SEND TOC records. 

gi3 The .SEND TOC records are formatted into captions. 
! FORMAL PARAMETERS: 

None 


i IMPLICIT INPUTS: 


nxtstc = next .SEND TOC ‘'n’’ value to process 
cmdblk = command Line information block 


4 

1 

4 

' 

i 

' 

q 

i 

q 

1 

4 

' 

| 

' 

IMPLICIT OUTPUTS: 
None 
1 
1 
( 
' 
' 
1 
' 
1 
' 
' 


i ROUTINE VALUE: 
i COMPLETION CODES: 


None 
i SIDE EFFECTS: 
None 


IAPOIPOPOPOPIPONONININY 4 9 3 2 2S SS IO 


OOoooocooocooooo 


FW 


BEGIN 


i Walk through the file until there are no more .SEND TOC ''n" 
groups left to process only if we are processing HL 1's 


WHILE ( nxtste NEQ infinity) AND (.cmdblk Ccontents$g_headers] NEQ 0) DO 


CoOooocKee 


Ft ek ek ak ea 


LOCAL 
stcn, 
first_record; 


first_record = true; 

stcn = ohutstcs ' Value we're processing this time 
nxtstc = inf nity; ! Value to process next time 

$xpo open (iob = Ste iob setions = input, attributes = BINARY 

, ZIF XBLISS (BLISS325 ZTHEN , failure = open_error %F1 


WHILE Szpo_get (iob = stciob, fullwords = 2) EQL xpo$_normal DO 
t 


44434343344 


wise 


PPA 
=O OOO UNE WN 0 OONO UE WIN 0 OONO UE WIN OO OONOAUES WN OVOOwo 


ee ce ee ee ce el ce ce ce ee et ee ee ee ce ce ee ee ee ce ee ee ee ee ce ce ce ce ce ce ce ce ce ee cee ce ce ce ce cee ee ce ee ee ce ee ee ee ee eed ee eed 


PWIA NNN NIIP) 9 2 


CONAN 


DO 


11 
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Process a record group 


=32 V4.0-742 Page 3 
CAPTION.BLI;1 (3) 


“no 
=x=— 
ou 


IND 
record header = .stciob Ciob$a_data] : VECTOR; 


major = .record_header FO}: 
minor = .record_header (1]; 


SELECTONE true OF 
SET 
CC major EQL maj_runoff) AND (.minor EQL min_page)] : 
8 GIN 
Process a page reference 


$xpo_get (iob = stciob, fullwords = page sct_size); 
BEGIN’ pegs..s¢*. 


IND 
page_ref = .stciob Ciob$a_data] : VECTOR; 


MAP 
pagen : VECTOR; 


Sogo GoGoGote eh oo eS. 


OO000 009000090909 09 0909 09 0909 INI NII NINN NI OOO 


0 
0 INCR i FROM 0 TO page_sct_size - 1 DO 
8 pagen C.i] = .page_ref C.iJ; 

END; 

END; 


C(.meler EQL maj_send) AND (ABS (.minor) NEQ .stcn)] : 
8 GIN 


i A ,SEND TOC with a value of n which does not match the 
' value we're brecese tng. Remember it if it is the smallest 
one which is larger than the value we're processing. 


iF ABS (.minor) GTR .stcn THEN nxtstc = MIN (ABS (.minor), .nxtstc); 


' 
Now skip over the text if any 


SSRVSARAN LS SSVSAR Aw SIONS Ose unease 


$xpo_get (iob = stciob, fullwords = 1); 
IF .(.stciob Ciob$a_data]) NEQ 0 
THEN 


$xpo_get (iob = stciob 
Tullwords = CHSALLOCATION (.(.stciob Ciob$a_data]))); 


END; 
oC .major EQL maj_send) AND (.minor EQL .stcn)] : 
BEGIN 


a ee a ee ee ee ee ee ae ee a a a ad ad dd 
www or eee ew ew ew oP iw ole le leone leit oat onl onl oat es) O41 4 4 OP oP ae oP oP ae > > >? > >? >? >t 


tt 1 M™QOOOOOOOOSD 


BWNOUE WO OONOUS WN — 


A caption title 


IF .hl_m NEQ 0 THEN put (‘Cval5]'); 
put ($str_concat ('*cOn*', .tms_titles C.stcn], 'aa')); 


11 
CAPTION CAPTION = Generate figure, table and example ca 15-Se -1984 23:50: AX-11 Bliss-32 V4.0-742 Pa 0 CAF 
v06~000 STCHDR = Process the OSENG TOC nm capt Ons. temp 1228681382 $3:39:9 RUNOFF. RCVCAPTION.BLIs1 - a v04 
805 LOCAL 
88 tr, 
60 en; 
08 
£98 clriline (); 
10 Line_indent = .indents [0]; 
gi extlin = .Line_indent; 
\¢ wrap = .indents [ i + indents (1); 
81 rmargin = ,cmdblk contentss9_page_widthd; 
Bie major = maj_runoff; I"Make~.SEND TOC +n Look Like a caption. 
1 If_.first_record AND .stcn LEQ 3 
8 THEN BEGIN 
819 ' 
4 } First one seen - generate title 
& § if .cmdblk Ccontents$v_tms11] 
H ¢ BEGIN 
H 6 BIND 
: 4 tms_titles = UPLIT (0, tms_ex, tms_fg, tms_tb) : VECTOR; 
$3 put (°'); 
830 
i 
33 
8 


PARADA AIAN AAAI ES Be BB BE AAA AN AAAI AI OPORIPUNOPUNININ — 


DDoo WA PN SOO OAS Ua OO Dod WON OND BOWS ARO OO Ue 
DPPAPAIAIIIMNA AO NINN NNO AAA AOA UII 
BeBe Se Be Se Se Ge Be Se Se Be Se Se Ge Se Fe Ge Ge Se Se Ge Ge Se Se Ge Se Ge Ge Se Ge Se Ge Ge Ge Se Ge ee Se Se Se Se Se Se Se See Se Se Seas Se Sete Se eeeses 
ee ee ee ee ee ee eS SY 


Be Se Se Se Ge Se Se Ge Se Ge Se Ge Se Ge Se Se Se Ge Ss SF Ge Ge Be FF Ge Ge Gs oe FF Se FF Ss SH Os FSS Ss Os Se BE Se SF SSF Se SF Se Ss ESF SESS SESS Se Sees 


tH ELSE 
: 6 BEGIN 
37 
838 IND 
839 rno titles = UPLIT (0, rno_ex, rno_fg, rno_tb) : VECTOR, 
are title = .rno_titles C.stcn] : $stridescriptor (); 
4g ut ('. TEST PAGE 7°); 
? F .hl.n NEQ 0 THEN put (*.SK2") ELSE put ('.SK1"); 
5 IF .indents CO) NEQ 0 
6 THEN 
7 put ($str_concat ('.I-", $str_ascii (.indents (0]))); 
§ put (title); 
50 Bus (* BLANK"); 
23 ND; 
34 6 first_record = false; 
54 6 END; 
55 § 
28 4 hl_n = 1; 
28 % IF .cmdblk Ccontents$v_tms11) THEN Literal_text (‘*cln*"); 
0 74 ’ 
1 75 ! Process the record 


' 11 
and example ca 15-Sep-1 


CAPTION CAPTION = Generate figure, table 4 23:50: AX-11 Bliss-32 V4.0-742 Page 31 CAt 
Go4~080 STCHDR = Process the oSENG TOC n captions temp 12-808-138E #3:39:93 RUNOFF. RCICAPTION.BLI?1 . ai Vv0é 
; 117 ' 3 1 
3 beg 1138 $xpo_get (iob = stci b, fullwords = 1); 3 
B64 1178 fen eeet arctob Elonsedgtodss 4 
; 865 117 $xpo_get (iob = stciob, fullwords = G¥BAL | OAT IGN (,len)); | 
86 1 0 ptr = CHSFIND_CH (.len, CHSPTR (.stciob Liob$a_datad), %C',"); | 
3 Hy 1 ¢ IF_.cmdblk Ccontents$v_include_sections) 2 | 
MORE § pea : 
: Hh; 1% § ° Generate a section number if the user requested one. ; 
: er 1} 3 6 if NOT CHSFAIL (.ptr) ; 
ne eesin i 
: 143 1136 4 User supplied a section number ; 
: 860 1194 7 LOCAL :1 
; 881 1195 7 sec_l, : | 
: BBS 1199 sec pi i 
: 884 1198 7 sec.p = CHSPTR (.stciob Ciob$a_data]); 31 
; 885 1199 7 sec_l = CHSDIFF (.ptr, .sec_p); 3 | 
; Hy] : + 4 strip (sec_l, sec_p); : 
; 888 1208 7 IF .sec_l NEQ 0 71 
3; 889 1203 7 THEN 3 1 
: 890 1204 8 BEGIN : | 
: ; : 88 : User specified a non-null section number ; | 
: 894 1208 IF .pagen Csct_typ] NEQ 0 31 
3; 895 1209 THEN 3 1 
: op 51) 9 ee ‘j 
; 38 ! \ 4 Document is divided into sections ; | 
: 1214 9 ptrsct = CHSPTR (txtsct); _) 
; 901 1215 9 ensct = pocees (pagen ptrsct); 3 1 
: 90 1 16 9 fmttxt (.Lensct, CHSPTR (txtscts); 31 
; 90 1217 9 fmttxt (i, CHSPTR (UPLIT ('-'))); 31 
mB -~ : 
; 396 1 Y fmttxt (.sec_l, .sec_p); 3 
; 908 1 § IF NOT .cmdblk Ccontents$v_tms11] 31 
; 909 1 THEN 

: aI9 ! 3 write char (ZC° ", counts_visually); 

: 91 1 END; 

3 338 1 $ 7 

3; 6916 1 8 6 END; 

; at? 1 

: 1g 1250 END; 

; (91 1231 

; 918 1232 IF .cmdblk Ccontents$v_tms11) 


11 
CAPTION CAPTION = Generate figure, table and example ca 18. Sep-1984 23:50: AX-11 Bliss-32 V4.0-742 Fa 2 
00-000 STCHDR = Process the OSENG TOC n capt ons’ tenp 1228 08-13Re #3:39:49 RUNOFF -SRCICAPTION. BLI;1 - (35 
; 919 1 ; 5 THEN 
; 2 » } ¢ write char (%C'a') 
: 96 1936 pad ((.indents [0] + .indents [1] - .extlin)); 
: 924 1 2 
: 5 : i Generate page number to get its length. 
; 3 ? 41 ptrpag = CHSPTR (txtpag); 
; 2 ; \ ‘8 IF NOT .cmdblk Ccontents$v_standard_page] 
: 931 1245 6 BEGIN 
3; 9 ¢ 1 rf 6 ! 
3; 9 1247 6 ! Use running page number 
i 33 1509 & bas ( Csct 1, pt 10) 
; enpag = pacbas (.pagen Csct_run_pageJ, ptrpag, : 
: 936 1350 “Dre p pag -run_pag ptrpag 
; 937 1 2] ELSE 
: 938 1 ¢ 6 BEGIN 
; 939 \$2 6 ! 
: 940 1254 6 ' Supply the usual page number 
8 BES | meen per 
; enpag = pacpa agen, ptrpag); 
; OS 1357 5 9 he acl ttt ea it 
3 944 1258 : 
; 945 1259 rmargin = .cmdblk Ccontents$g_page_width] - .lenpag - 1; 
3 ane 1260 5 wrap = -extlin; 
; 94 1261 5 
; 948 j 6¢ 5 i Process the text 
3; 949 126 é i 
; 950 1264 IF CHSFAIL (.ptr) 
; «951 1$92 2 THE 
3 326 1266 ptr = CHSPTR (.stciob Ciob$a_data]) 
; 1267 5 ELSE 
> 954 1268 6 BEGIN 
; 955 1269 6 
; 956 1270 6 There was a section number in she Line. Point past 
3; 957 1271 6 i the comma and hep the Length 
; 958 1272 6 i 
; 959 1273 6 = CHSPLUS ( pie 
: 960 1274 a = .len - CHS FE ye Ps CHSPTR (.stciob Ciob$a_data])); 
3; 961 1275 END; 
; 366 127 
; 96 127 strip (len, ptr); 
3 +¢) ' 8 5 fmt ttxt (.len, .ptr); 
: $66 ' Insert page reference into page if desired. 
: 968 1 : insref (); 
: 1 : 
: $70 ! : } Write Line to output file 
: me 1 § ak ((. inglin, CHSPTR (Line))); 
3; 97 1 clr_line 
3: 974 1 3 4 END? 
3; 975 1 4 


CAPTION 
0 


cart ON = Generate figure, table and qxenple ca ae =3007 138% $3:30:63 AX-11 Bliss-32 V4.0-742 Page RS 


I 
DR = Process the .SEND TOC n Captions temp 14-Sep- RUNOFF. SRCJCAPTION, BLI;1 
CC mejor EQL maj_send) AND (.minor EQL -.stcn)] : 
8 GIN 


<o- 


> 
ee ee ee ee me em ee em ee me ee ed ed ed ed ed ed od od od od od wd = = 3 <4 


1 


i Insert directly into .RNT file 


$xpo 29¢t rt = BSoeb'a ihe = 1); 
l -stciob Ciob$a 

af (iob = stciob, fullw ords = CHSALLOCATION (. len)); 
a Len, CHSPTR (.stciob Ciob$a_data])); 

TES; 
END; 


sxpo.c lose (iob = stciob, options = remember); 


——DOOCGCOOOCOCOCOCOCOOODDO0000O0 a» 
AMO OONAOUE AR" OOONOUEWN—O I-41 
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«PSECT SPLITS,NOWRT ,NOEXE,2 


00000000 0006C P.ABH: .LONG 0 : 
000000006 000000006 000000006 90070 Aga “ADDRESS TMS_EX, TMS_FG, TMS_TB : 
5D 35 31 61 7s 58 0007C P.ABJ: .ASCII \Cval5]\ ; 
2a 6E 30 63 2A 0082 P.ABM: .ASCII \#cOne\ F 
40 40 00087 P.ABN: <ASCII \a@a\ : 

00089 ‘BLKB 3 
90000000 008¢ P.ABQ: <LONG 0 : 
000000006 900009006 00000006 000 “ADDRESS RNO_EX, RNO_FG, RNO_TB : 
37 20 45 47 41 50 20 54 53 45 54 2€ 0009C P.ABR: .<ASCII \.TEST PAGE 7\ F 
32 4B 33 E QOOAS P.ABS: .ASCII \.SK2\ : 
31 4B 53 2€ OOAC P.ABT: .ASCII \.SK1\ ; 
20 49 2€ 00 80 P.ABV: ASCII \.I-\ : 
4B 4E 41 4C 42 2€ 0008 P.ABX: ASCII \.BLANK\ : 

0089 “BLKB 3 
00 00 00 2A 6E€ 31 63 sf QOOBC P.ABY: .ASCII \*ciln*\<0><0><0> : 
00 00 00 2D 000C4 P.ABZ: <ASCII \-\<0><0><0> : 

.PSECT SOWNS,NOEXE,2 

0000 00090 SSTRSSTRING: aa 
01 0, 00 092 “BYTE 14, ; 
00 09900 009 “ADDRESS P.ABI ; 

098 SSTRSSTRING: 

-WORD 6, ' F 


P.ABJ : 


00009005" ttt 


3 ny ESS 
000A SSTRESTRING 5 


| | 
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7FFFFFFF 


000000006 
FA 
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000000006 


FB 


00809006" 


008090 


00000006 
000000006 
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3 00000006 

EF 7FFFFFFF 

AY 00010001 
000000006 


cc 


000000006 
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re, table and example ca 18.12 1 
END TOC nm capt ons’ teap 12-Sep-1 


oodtgoth> St 


AB SSTRSSTRING 


baa 


$i 
BB 
A 
6 
2 
4 
8 


38 
ie 
6 A 


00 
008 
008 
o0c 
00Cc 
00C 
00c 
00c 
OOcc 
00D 
00D 
00D 


0 
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00000 
00002 
00 
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WAWNTININN - — — oO 
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CSAs 


Be §3:09:87 


Ort 
oo P.ABM 


AxX-11 BLi isge -32 V4.0-74 
RUNOFF .SRC 


14, 1 


“BYTE 4, 1 
ADDRESS P.ABN 
SSTRSSTRING: 


nee Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 


WW 1 
“BYTE 14, 1 
“ADDRESS P.ABR 
SSTRSSTRING: 
.WORD 
“BYTE 14, 1 
ADDRESS P.ABS 
SSTRSSTRING: 
-WORD 4 
x 14, 1 
ADDR P- ABT 
SSTRSSTRINGO: , 
14, 1 
ADDR ESS P.ABV 
SSTRSSTRING: 
“WORD 6 
“BYTE 14, 1 
“ADDRESS P.ABX 
TMS_TITLES= P. ABH 
RNO-TITLES= P- ABQ 
SCODES,NOWRT, 2 
MOVAB $+68, R11 
MOVAB SSTRSTARGET R10 
MOV BS 52, R9 
SUBL 18 SP 
1$: CMPL  NXTSTC, #2147483647 
BEQL $ 
TSTL CHDBLK +4 
2$: BNEG 
3$: MOVL #1, FIRST_RECORD 
MOVL  NXTSTC STCN 
MOV #2147483647, NXTSTC 
BISL2 #65537, 10B$+46 
OVB #1, 10B$+44 
PUSHAB OPEN_ERRO 
CLRL  =(SPY 
PUSHAB I0BS 
CALLS #3, XPOSOPEN 
4$ rl a |: 10B$+5 
MOVB #2. IOB$+ 
MOVB #6. [0B$+44 
PUSHAB XPOSFAILURE 


CAPTION.BLI;1 
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CAPTION CAPTION = Generate figure, table and example ca 18.38 -1984 23:50: AX-11 Bliss-32 V4.0-742 Page 36 
v04-000 STCHDR - process the oSENG TOC nm capt ons’ teap 12-808- 1382 #3:39:49 RUNOFF .SRCJCAPTION.BLI;1 ° (3 

02 Ad 1 MOVB #2, 10B$+54 : 

4 A 3 $0 1 6 MOVB Hi 10B$+44 : 

000000006 EF F 001 PUSHAB XPOSFAILURE ; 

4 0015A CLRL = (SP) : 

000000006 EF ” f Pe Oolar Peete 18°S veoscer : 
5 04 p 196 MOVL astclosess, RO + 1107 

; 16A BEQL ; : 
cd 0016¢ ADDL2 #3, R + 1110 

30 i C6 16 DIVL? #4. R : 

69 4 AS 001 ; MULW3 #4, R 1088+52 ; 

08 A9 : 30 17 MOVB ie 10B$+54 ; 

FB OAQ 90 0017A MOVB #6. [0B$+44 : 

000000006 cr OF OO17E PUSHAB XPOSFAILURE F 

D4 001 CLRL = (SP) : 

cc iS 9F 001 PUSHAB 1088 : 

000000006 EF 0 Fe 1 CALLS #3, XPOSGET : 
FEDO 31 001 BRW 43 + 1070 
50 04 00193 17$:  CLRL RO + 1114 

56 000000006 EF 01 0019 CMPL MINOR, STCN : 

03 12 0019C BNEQ  =18$ ; 

06 019 INCL R : 

51 2 0 uA 18$:  MCOML R2, RI : 

50 1 CA OO1A BICL2 R1. RO ; 

01 D1 14g CMPL RO w : 

058s $7 botag Bea i38 ; 
nS een i ts ian eal (78 = 
goooonne er S9888Rs FE 5 Se Gat EE a 
000000006 EF SS EF DO 00100 MOVL_ LINE_INDENT, EXTLIN + 1125 
co0on006 FF $9999 EE £98888888 Er So $8198 | ABULS DABERSst~ upeatae wr at, 
F 01F6 MOVL #2, MAJOR’ + 1128 
ssaehantehte 65 oe i bores BLBS FIRST_RECORD, 218 : 1130 

029A 31 00 208: BRW 34$ : 

03 56 1 1$: CMPL STCN, #3 ; 
52 56 AS te ° ty ie. STCN, R2 2 1147 
03 000000006 EF nit i Q o¢ BBS al, CMDBLK, 22$ ; 1136 
000000006 ai F 00217 22% PUSHAB STRSFAILURE > 1143 

E D4 0021D CLRL = (SP) : 

SA BD 1F PUSHL R11 : 

00000000' cr F 1 PUSHAB $STRSSTRING 

000000006 EF O§ Pe 90559 CR, gee tstscopy : 

bo gh 5 0088) ROVEMLTHASTR, ; 

are | Pas a Bnteiyy. vmaee 3 

’ 000000006 i F it PUSHAB XPOSFAILURE : 

E D4 00247 CLRL = = (SP) : 

ee 0S cee : 

07 addins EF 8; E 35 BBC #1; CMDBLK, 23% : 


12 
CAPTION CAPTION = Generate figure, table and example ca 18-c6 -1984 23:50: AX-11 Bliss-32 V4.0-74 7 
G04 ~000 STCHDR = Process the oSENG TOC n ceptions teap 12-Sep-19 4 93:09:99 RUNOFF .SRC CAPT YON Beet en (3 


CALLS #0, SPLIT 
HL_N 


000000006 EF 00 F 5 : : 
000000006 f p 62 238: Ist He + 1145 : 
000000006 FF 9 é, PUSHAB STRSFAILURE : ; 
E D4 CLRL = = (SP) : ; 
SA DD f PUSHL R11 : ; 
00000690" cr F PUSHAB $STRSSTRING : : 
§ D4 0027A CLRL = =(SP : ; 
000000006 EF 05 FB iS CALLS #5, XSTSCOPY ; F 
0 A 3 MOV2WL TMPSTR, RO : ; 
000000006 EF 0 ADDL2 RO, CHROUT : : 
6B A F OVAB $1OBS0UTPUT. 10B$+68 : : 
E8 7 MOVB #7, 10B$+44 : ; 
000000006 EF 9F 00294 PUSHAB XPOSFAILURE ; ; 
ac AB OF 0099C PUSHAB 108s. 
000000006 EF i fas Oger CALLS i XPO$PUT : : 
07 00000000G_ EF 1 £1 0026 BBC #1, CMDBLK, 24$ : ; 
000000006 EF 0 FB 00 AE CALLS #0. SPLIT : ; 
00000000' EF 9F 002B5 24$: PUSHAB $STRSSTRING2 + 1147 ; 
00000000'EF42 9F 00 BB PUSHAB TMS TITLESLR2) : : 
9E pp 0 C PUSHL a@(SP)+ : ; 
00000000" EF 9F 002c4 us SSTRSSTRINGO : ; 
000000006 EF FB OOOCA CALLS #3, XSTSJOIN : ; 
000000006 i 9F 00201 PUSHAB STRSFAILURE : ; 
E D4 00207 CLRL - : § 
0401 8F BB 00209 PUSHR #*M<RO,R10> : ; 
01 9 1 002DD BRW : ; 
00000000'EF42 9F 00 EO 25$: | PUSHAB RNO_TITLESCR2) > 1154 F 
52 9E DO O02E MOVL a(SP)+, R2 : ; 
000000006 EF 9F OOZEA PUSHAB STRSFAILURE : 1156 : 
E D4 002F0 CLRL © = (SP) : : 
5A DD 002F2 PUSHL R10 : ; 
00000000' EF OF O02F4 PUSHAB $STRSSTRING : ; 
: D4 OO2FA CLRL = : : 
000000006 EF 05 FB 00 FC CALLS #5, XSTSCOPY : ; 
0 6A 3C 0030 MOVZ2WL TMPST ; : 
000000006 EF 50 £0 0 06 ADDL2 RO, CHROUT ; F 
6B A 0300 MOVAB $10BS0UTPUT. 10B$+68 : ; 
E8 AB 7 9 0 10 MOVB #7, I0B$+44 : ; 
000000006 EF 9F 14 PLSHAB XPOSFAILURE ; : 
E D4 OO31A CLRL = = (SP) ; : 
BC F 0031C PUSHAB 10B$ ; 
9000 9006 EF F 0 1F CALLS #3, XPOSPUT : 
07 0G EF E 6 BBC #1. CMDBLK, 26$ ; 
00000006 EF 0 F f CALLS #0. SPLIT : 
000000006 Fe p 26$: ist 4 i. ; 1157 
000000006 cr 9F PUSHAB STRSFAILURE ; 
E D4 0034 CLRL © =( SP) ; 
SA DD 0034 PUSHL 1 ; 
00000000° FF F 0034 PUSHAB $STRSSTRING ; 
0 11 0034D BRB ; 
000000006 cr 9F 0034F 27$:  PUSHAB STRSFAILURE ; 
E D4 5 CLRL = = (SP) ; 
SA DD PUSHL 1 : 
00000000" EF 9F 9 SSTRSSTRING : 


000000006 
900000006 


000000006 


000000006 


000000006 
000000006 
E8 


000000006 
07 000000006 
000000006 


000000006 
000000006 
E8 


000000006 


CAPTION = Generate figure 
STCHDR = Process the .SEN 


5 


i 


EF 
EF 
EF 


EF 


12 
e and example ca 15-Sep-19 4 
nN captions temp 


i§ 


WUOO 


NSITOM NOON MOOO>,F mM 


WM MMI MNOWNOMONO—-WM JP OY 


43:05:87 


J 
—™ Ovwum oo— 


DOWMIDWI OOS WOOF MM"OTOOOOWnN 


OOOQCCOCOOOOOCOOOOOOOOOOOOOOOOOOO 


OOooCCSOCCCOCOOCCooO 


BLO L2D -D ML MNOM OOD FD LM DML NOMOOD FDL NW ODO FwWwO@ - 9 *F"OMOOW 


MOF OOOO FS NIM DW OS MIU Bh ON FP WOM OL S NIOM & OND WIN NU 


POUL FWA APPIN) 2 3 = 2OCOOTTAMMMMOCIVIFOCOCOCOOW>>r>r >> 


5 al tak ek ee a ke a a ea ee ee ee ee ee ak ad hb eb eh 


NO OSCST OMMNOSOOOOMWMOWIOOMNNM"OTCOO 


SOSOGOGSOOOSOSOSOSOOSOOSOSOSOSOOOSOOOSSO 


OGOQoQooooooooooooooooooooooo 


54S?) 
# XSTSCOPY 
THPSTR R 


XPOSFAILURE 

=(SP) 

1088 

#3, XPOSPUT 

#1. CMDBLK, 298 
PLIT 

JNBENTS, RO 

0$ 

=(SP) 


R 

49307 -(SP) 
#3, XSTSASCII 
SSTRESTRINGO 
#2, XSTSJOIN 
STRSFAILURE 
#°M<RO,R10> 


#5, XSTSCOPY 
TMPSTR, RO 


RO, CHROUT 
SIOBSOUTPUT, 108$+68 
#7, 10B$+44 


XPOSFAILURE 
-(SP) 


#3, XPOSPUT 
#1; CMDBLK, 30$ 
STASPATLURE 
#AMcR2,R10> 
#5, XSTSCOPY 


TMPSTR, RO 
RO, CHROUT 


$10BS0UTPUT. 108$+68 
$+44 


i 
XPOSFAILURE 
-(SP) 


108$ 
i3. XPOSPUT 


#1, CMDBLK, 31$ 


#0. SPLIT 
STRSFAILURE 
=(SP) 

R1 
SSTRSSTRING 


tS XSTSCOPY 


AX-11 Blis 
RUNOFF .SRC 


0 cH OUT 
$168 OUTPUT, 108$+68 
# 108$+44 


SESH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Fe Fe Se Ge Be Se Ge Be Se Be Se Be Se Se Be Ge Be Se Fe Se Se Se Be Be Fe Se Se Be Be Se Fe Se Be Se Se BeBe 


12 
CAPTION CAPTION = Generate figure, table and example ca 18-5 1984 750: AX-11 iss-32 V4.0-74 
y0%~000 STCHDR = Process the oENG TOC n captions teap 1 =3007 138% 93:09:99 AUNORF SRO aCAPT ON BA tet - Ai 


50 A 3C 00469 MOVZWL TMPSTR, RO ; 
000000006 EF 4 § ms ADDL2 RO cH OUT ; 
B A 35 004 MOVAB sia OUTPUT, 108$+68 ; 
E8 AB 7 4? MOVB #7, _~10B$+44 : 
000000006 cr F O047A PUSHAB XPOSFAILURE ; 
E D4 004 CLRL = = (SP) : 
BC AB 9F 004 PUSHAB 10B$ : 
0 0 0 G EF Fe 4 CALLS #3, XPOSPUT : 
07 G EF 1 £1 0048¢ BC #1, CMDBLK, 33 : 
000000006 EF 0 FB 00494 CALLS #0. SPL : 
D4 00498 333: CLRL FIRST RECORD + 1167 
8 £008 G EF 1 00 490 34$: MOVL #i, HO_N 3 117 
1A G EF 1 : 4A4 BBC #1. CMDBLK, 35$ + 117 
000000006 FF 00000000" EF ; aac MOVC3) #5, P.ABY, aLP ; 
00000006 EF CO 0048 ADDL2 #5. LP F 
00000006 EF 5 ¢€O 004BF ADDL2 #5, INTLIN : 
69 4 8 Acé 35$: MOVW #4. I0B$+5 + 1177 
02 A9 2 9 ac MOVB , 10B$+ : 
F AY 6 9 4CD MOVB a 10B$+44 : 
000000006 EF 9F 00401 PUSHAB XPOSFAILURE ; 
; D4 00407 CLRL = (SP) : 
CC AS «SF 00409 PUSHAB 1088 ; 
000000006 EF 03 FB 0040 CALLS # KPOSGET ; 
OC AE 04 89 DO O04E MOVL asiciog+ 6, LEN : 1178 
50 OC AE 3 C1 004E ADDL3 #3, LEN, RO + 1179 
50 4 C6 O4ED DIVLG Ha; R : 
69 50 4 A5 004F0 MULWS #4, RO, 10B$+52 ; 
02 a9 : 30 O44 MOVB #2. 108$+54 : 
FB AD 06 9 O4F8 MOVB #6, 10B$+44 F 
000000006 EF OF arc PUSHAB XPOSFAILURE : 
E D4 0050 CLRL = = (SP) : 
cc AD OOF 9504 PUSHAB 1088 ; 
000000006 EF 3 FB 00507 CALLS #3, XPOSGET : 
04 89 OC AE ¢ 3A 0505 Locé «©—._s«#44, LEN, a@STC10B+56 + 1180 
if 51 BNEQ  36$ ; 
1 D 216 CLRL sR ; 
08 AE 1 D0 18 36$: MOVL 1, PTR : 
03 000000006 EF 4 3 ¢ BBS #4. CMDBLK, 38$ > 1182 
009A 4 37$: BRW 40§ : 
re 7 38$: BEQL 378 : 1188 
6E 04 Ad D 9 MOVL  STCIOB+56, SEC_P : 1198 
04 AE 08 AE A: C3 00 SUBL3 SEC_P, PTR, SEC_L : 1199 
E BD PUSHL $P > 1200 
08 AE F PUSHAB SEC : 
00000000v_ EF 02 F CALLS #2, STRIP F 
046 AE D F TSTL = SEC_L + 1202 
7D 1 4 BEQL  40$ ; 
OF 000000006 EF 9 4 BITB PAGEN, #15 : 1208 
7% 48 BEQL 39% ; 
000000006 EF 00 G EF 9€ 40 MOVAB TXTSCT, PTRSCT : 1214 
0G EF 9F 2 PUSHAB PTRSCT : 1215 
00 G EF 9F PUSHAB PAGEN ; 
990000006 EF ; FB CALLS #2, PACSEC : 
00006 EF p MOVL RO. LENSCT ; 
990000006 EF 9F PUSHAB TXfSCT : 1216 
G a DD 0057 PUSHL BNSCT ; 
000000006 EF 2 FB 0057E CALLS #2, FMTTXT : 


12 
CAPTION CAPTION = Generate figure, table and example ca 13-5 -1984 23:50: AX-11 iss- 4.0-74 
v00~000 STCHDR = Process the OSEND TOC n ceptions tenp 122808-1 382 #3:09:97 YRUNOFF SRE cAPrYon Ca tet 


50 +: ag 08 AF 


00000000' or 5 PUSHAB e ABZ : 

000000006 EF : FB D CALL a FMTTXT : 

DD 4 39$:  PUSHL é ; 

08 AE OD PUSHL  SECuL ; 

a1 SORSR086 EE Sn ame eta : 
0000G FF 0 3 ig move #30, aLP ; 

G EF D AF INCL LP ; 

€ EF bs 00eBb INCL EXTLIN : 

16 000G EF ch 40$: BBC #1, CMDBLK, 42$ ; 
iitdaitdt FF 40 F +) af 41$:  MOVB #64, aLP : 
9900000 G EF D6 00501 INCL ; 

00000006 Ff p 307 INCL INTLIN : 

57 000000006 EF 000000006 EF C1 bape 42$:  ADDL3 INDENTS*4, INDENTS, R7 ; 
000000006 _ EF f D] FEB CMPL R7, EXTLIN : 

57 000000006 FF ge Sere SUBL2 EXTLIN, R7 ; 

57 20 6F 0 2C 005FB MOVCS #0, (SP), #32, R7, aLP ; 
000000006 FF 9600 ; 

900000006 EF 57 C 6 ADDL2 7, LP ; 
0000000G_ EF 32 CO 006 ¢ ADDL2 7, INTLIN ; 
000000006 EF 7 g 061 ADDL2 7, EXTLIN ; 
00000000G EF 000000006 EF i 061A 43$:  MOVAB TXTPAG, PTRPAG : 

18 000000006 EF 3 0625 BBS #3, CMDBLK, 44$ ; 
A 06 d PUSHL #10 ; 

990000006 EF 62F PUSHAB PTRPAG ; 

7E 000000006 ai a MOVZWL PAGEN+14, -(SP) : 

000000006 EF : CALLS #3, PACBAS : 

1 4 BRB 45§ F 

900000006 EF 45 44$:  PUSHAB PTRPAG : 

00000006 EF 48 PUSHAB PAGEN ; 

000000006 EF : 5 CALLS 2, PACPAG F 
000000006 EF 58 45$:  MOVL RO, LENPAG F 

50 990000006 EF 000000006 _ EF SF SUBL3 LENPAG, CMDBLK+24, RO ; 
00000 906 EF FF AO $8 MOVAB =1(RO). RMARGIN : 
000000006 EF 000000006 EF MOVL EXTLIN, WRAP : 

08 Ag E PTR 3 

0 1 $ 

08 AE 04 Ag : 


So 
i] 
DOOD BNSF "OOOO 9 -FT 9009 TOO ™WoCm 


MOSCOWWIOD 2 7OWO"QNMIOM WOOD Vn DWong 


06 
6 
6 
06 
06 
06 
06 
32 
¢ TSTL 
6 BNEQ 46$ 
° MOVL STCIOB+56, PTR 
BRB 47$ 
A 468: INCL PTR 
te: PTR, STCIOB+56, RO 
ADDL LEN 
6 


C AE 5 RO 
08 AE 97 47$ PUSHAB PTR 
AE 9A PUSHAB LEN 
00000000v_ EF 0 9D CALLS #2, STRIP 
08 AE M PUSHL PTR 
10 A A PUSHL LEN 
900000006 EF 0 AA CALLS #2, FMTTXT 
000000006. EF BI CALLS # INSREE 
10 AE 000000006 EF B MOVW  INTLIN STRSSTRING 
12 AE C MOVB #14, SSTRSSTRING+2 
13° AE ¢ MOVB = #1, ‘SSTRSSTRING+3 
14 AE 000000006 EF (8 MOVAB LINE, SSTRSSTRING+4 


CAPTION CA or son - Generate figure. table and gxanple ca ib. $e-1964 $3: 30:68 preorredaric Brien. eteit 


742 Page (4 


STCHDR = Process the .SEND TOC n captions temp 14-Sep-1 ) 
000000006 EF 9F 006D PUSHAB STRSFAILURE F : 
He be Gee CURE oD ; ; 
1¢ AE SF O08DA PUSHAB SSTRSSTRING 3 : 
43 D4 006DD CLRL = : ; 
000000006 EF 0 Fe OF ALLS gghSTSCOPY : ; 
000000006 éF 86 26 doce MDDS” OR thé OUT : ; 
3 ah HE Oe His Hiab, sos ; : 
000000006 EF 3F F PUSHAB RPOSFAILURE : : 
ac AB BF doere cetAB Toss. : : 
900000006 EF 5 FS 00708 CALLS AS. XPOSPUT ; : 
07 90900006 EF 1 €1 007 BC #1. CMDBLK, 48$ : ; 
900 90006 EF 0 FB 00711 CALLS #0, SPLIT : : 
00000006 EF 0000 0006 EF 9E 00718 48$: OVAB LINE, LP + 1287 ; 
$33888888 EP Bt abs ua ; : 
> 31 OorsF BRB. SS ; 1070 : 
51 6 CE 00731 49$:  MNEGL STCN, R1 + 1290 ; 
D4 007 CLRL. —- RO : : 
51 000000006 EF 01 07 6 CMPL = MINOR, R1 : ; 
tn ; : 
53 5 Pg O74) 50$:  MCOM Re. R3 : ; 
50 53 CA 00744 BICL2 R3. RO ; : 
01 50 D1 00747 CMPL RO, #1 : ; 
52 12 OO74A BNEG 51$ : : 
69 04 BO 0074C MOVW #4, I10B$+52 : 1298 : 
iy A9 29 O74 MOVB #2, ~‘10B$+54 ; : 
Fa AD 06 9 133 MOVB #6. I0B$+44 : : 
000000006 EF 9F 007 PUSHAB XPOSFAILURE F : 
E D4 0790 CLRL = = (SP) : ; 
000000006 EF ce O83 Pb bore Chet S.  bS° xPOSGET : ; 
BOB RRB | iy Rise um yg) | 
50 4 cs a Dive a, nb : : 
69 50 4 A O77 MULW3 #4. RO, 10B$+52 : : 
02 a9 : 30 778 MOVB #2. | 108$+54 : : 
FB AD 3 77 v 10B$+44 : ; 
000000006 EF 9F 007 PUSHAB ROSE AILURE ; : 
ce AS OOF 80% PUSHAB 1988) : : 
n F FB 007 CALLS XPOS$GET : ; 
peoureees © 04 ; pp , PUSHL sities 56 ; 1301 : 
00000v EF 02 FB 0079 CALLS ie. INSRNT : ; 
eRe LF FaC ; 79 518: W 4 : 1959 : 
FA AQ 1 ; 7A1 52$: BISB2 #16, 10B$+46 : 1308 ; 
FB OA 0 7A MOVB #2, I10B$+44 : : 
000000006 i 9F OO7A PUSHAB XPOSFAILURE ; ; 
oa a) at : : 
000000006 EF : fe 7B4 CALLS a XPOSCLOSE : : 
F85C 7BB BRW 13 > 1045 : 
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CAPTION CAPTION = Generate figure, table and example ca 13-5¢ -1984 23:50: AX-11 Bliss-32 V4.0-742 Page 42 
¥04~000 STCHDR = Process the oSEND TOC nm capt ons’ tenp 1 =3e07 1382 #3:39:97 CRUNOFF SRE CAPTION.BLI;1 ° 35 
04 007BE RET 3 1311 


; Routine Size: 1983 bytes, Routine Base: $CODE$ + 0070 


<o 
2 


BeBe Se Se Ge Be Ge Ge Se Ge Ge Ge Ge Sse Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Se oe Fe Se Fs Se Se Se See Se Se Sete Sete Sete Se eeeeese 


23 


MIPIMNONOPIN 2 2 3 3 3 3 3 SIO 
WN OS OONAOULWN OC OONOULWN OOM 


IAIPOPONS: 


papa pwpalalololelelelelololololololololololololo) 


oO 
Ww 


ae 


SESPREEEERP SEAS ORS 


a ee ee ee a ee ee ee ee ee ee 8 ee ee ee ee ee ed dd ed nd ed od dD 


MEW 0 OOBNOUS WO 0 


MAINA 


ooooo 


ce ec ee ce ee ee ee ee me cD ce ee ce ce ce ce ee ee ce ee ee ee ce ee ee ee ee ed eed 


“on 


be + Dd 


BBB BF AEM FA|AMMININININININ IAI) a at tk a ak kd tk th 


12 
- Generate figure, table and example ca 18-56 -1984 23:50: AX-11 Bliss-32 V4.0-742 Qe 43 
Strip leading’ and trailing whitespace f 12-80 8= 1382 #3:59:97 RUNOFF -SRCICAPTION.BLIs1 ” (4) 


XSBTTL Bo = Strip leading and trailing whitespace from text’ 
ROUTINE strip (laddr, p_addr) : NOVALUE = 
FUNCTIONAL DESCRIPTION: 
This routine strips leading and trailing whitespace from the input string 
FORMAL PARAMETERS: 


l_addr = address of Length of string 
p.addr = address of CHS$PTR to string 


IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 
The length and string pointer are modified to reflect stripped whitespace 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


BEGIN 

LOCAL 
len, 
ptr; 


len = ..l_addr; 
ptr = ..p_addr; 


DECR i FROM .len TO 1 DO 
BEGIN 
Remove leading whitespace from section number 
LOCAL 


ch; 
ch = CHSRCHAR (.ptr); 
IF (.ch EQL 2C* *) OR (.ch EQL tab) 
THEN 

BEGI 

len = pten - 1; 

ptr = CHSPLUS (.ptr, 1); 


CAPTION 
V04- 


—> 
zu 
toe 
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Generate figure, table and example ca 18-56 -1984 23:50: AX-11 Bliss-32 V4.0-742 P 4 
rip leading-and trailing whitespace f 1228681 38 #3309399 RUNOFF .SRCICAPTION.BLIs1 me (2) 


ELSE 
EXITLOOP; 


END; 


-P_addr = .ptr; ! Set pointer to beginning of text 
ptr = CHSPLUS (ptr, olen = 1); ! Point to last cherecter™ : 


DECR ae -len TO 1 DO 


“nn 


Wr OOOnNO 


rtttttes 


ch = CHSRCHAR (.ptr); 
IF (.ch EQL %C° °) OR (.ch EQL tab) 
THEN 
BEGIN 
len = .len = 1; 
Bir = CHSPLUS (.ptr, -1); 
ND 
ELSE 
EXITLOOP; 
END; 
WHILE .len GEQ 3 DO 
BEGIN 


$2.09 G2 Id I I I 
WN — O OONOULSWN "OO O0ONOUS 


ojo fo folololololelolololo) 
000000000 000909 09 09 09 0909 SI NIN NIN NIN NNO 


nus 


lojojololololo) 
Set 


Strip trailing emphasis 

IF CHSRCHAR (CHSPLUS (.ptr, -2)) EQL rintes 
BEGIN 
len = .len - 3; 
Me = CHSPLUS (.ptr, -3); 


338 


oo 
Wn 
MEUM SO CONAN WN (OC OONOAU EWN" OOONOUS W009 


SOOOOCO0C0OO 


S33 
& 


o 
o 
w 


LSE 
EXITLOOP; 
END; 


-l_addr = .len; ' Return Length of strin 
ENB; . . 


3333 


ee ce ce ee a ee ee ce ee ee ce ce ee ce ce ce el el ce ce el ce ce ee el cee ce ce ee ee ce ce ee ee ee eel ee el ee 


PP at oP oF ot oo? at nd nl ek tek ek hh hh hn ode 


2 tt I IOOO 
MEW —O0Oean 


—— 


Be Se Se Se Ge Se Se Ge Ge Ge Ge Ge Bs Be Ge Ge Ge Ge Ge Gs Se Se Ge Ge Ge Gs FF Ge SH Ss SF SSH SSE SESE SESH Ss Se SESE SESE SE Ss 
a a a ee ee ee a a a a dd dd dd 
oo 
m= 


000C 00000 STRIP: .WORD Save R2,R3 :1 13 

4 BC D MOVL § @L_ADDR. LEN > 135 

8 +3 MOVL @P ADDR, PTR s 1 | 

1 A F A MOVAB 1<RO), f > 135 
"4 BRB 4 : 


e& 
a 
oe 
a 


=32 V4.0-742 


y 11 og 
RUNOFF ..SRCJCAPTION.BL1;1 


AX- 


Generate figure, table and example c 
r . Bt Ing whitespace 


Strip leading and tra 


APTION 
TRIP = 


C 
s 


CA bon 
v04-000 


i: 4 
— 
a 
. 
ern eo [+ 4 
oc N a 
ar Pa a 
= <a. x= c=? 
=) te Ww . t 
~ an ~N mr Ze a 
mm oO @e2z «+ nO = & ue 
“2 2 fa we 6B Ue A —- Ja 
is 4 - JO & me a bg 
—- >.> 22 a~a fe = .* 2a 2 ~ ss 
ATteOTeOwse e-—~SRATHTEHwWe wWeVsMmew 
wONOs?T 10.08. I Ww OOD 0 IO I OR BOY 
— + 4 — a 
ee ee = ee ee NII UIO YUU UIMOOIY = 4 
[Oa CA wWwevO >>> O0>F0 00wVVO0Awowoawowo>- 
Sat et 4 tt std FE Ft EEL FH 5 
ZBOOCMOO-"VMFTTEOZVOVCMOOVVvOMvOvveasa 
ee ef AA eh fr AA Dad 
- NN Mm! wn oOo KO oa 


SOOOOGOOOSOOOOSOSOSOOCSOSOSOSOOOSOSOSoOSoOo 
SSOOoOOGOSGSOSOOSOOSOSOOOSOOSOOSOOSOSOOSOSOOSOSSoS 
ee ee ww ww ww wl alot ewlolololololeolololololo) 


eM OF OWNS WI EO OUP PN OK INNING OF 


COO O-- O84 OOOO Ok Or OO OK OK VU OO 
DPI ON INI KONE ON — CO UI PIMM OO 
atettatateatataticinaty <e- OMIM OUWWINSe ZOoOoOwN 
< 
co us 
uO ou 
mo oO V2ON—- MO & em vv ONMW YL 
wu © wow ww ©& won’ wn @ 
f- o} wT 
Oo So 


Routine Base: S$CODE$ + 152F 


95 bytes, 


v 
N 
os 
wy 
eo 
c 
-— 
3 
a 
oe 


CAPTION 
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CAPT AOR ION - Generate figure. table and example ca 15-Sep-1984 49:30:68 AX-11 Oh tage sey 


NT = Insert text directly into .RNT file 14-Sep-19 RUNOFF .SR 


ZSBITL "INSRNT = Insert text directly into .RNT file’ 
GLOBAL ROUTINE insrnt (len, ptr) : NOVALUE = 


4.0742 Page 46 
ION.BLI:1 wr a 


FUNCTIONAL DESCRIPTION: 
This routine inserts the given text directly into the .RNT file 
FORMAL PARAMETERS: 


len = Length of text 
ptr - CHS$PTR to text 


IMPLICIT INPUTS: 

cmdblk = command Line information block 
IMPLICIT OUTPUTS: 

None 


ROUTINE VALUE: 
COMPLETION CODES: 


None 
SIDE EFFECTS: 
None 


INI AIA POROUS = 9 2 OOOO 


BEGIN 


IF .len GTR O 
THEN 
BEGIN 


There is something to process 


hl_n = -1; 

clrline (); 

Line_indent = .indents [0]; 

wrap = .line_indent; 

extlin = .line_ indent; 

rmargin = .cmdblk Ccontents$g_page_width); 


IF .cmdblk Ccontents$v_tms11] THEN write_char (%C°<'); 
fmttxt (.len, .ptr); 

IF .cmdblk Ccontents$v_tms11] THEN write_char (%C'>'); 
put ((.intlin, CHSPTR (Line))); 

gic tine tas 


ee ee ee ee ee’ 


PAA & BB EEE EE PAA 


POR WWI WWI NIWA WWII ANNAN NIAID 2 9 


ce ee ee ae ed ed ee ee ed ee a a ce ce ce ce a ce a a a cae a ee ce a ca a ee ee ce ce ce ce a ee ee a a ce a ed ee ee ee ee ed 
SIEVE UNVS SSNS SEES AS SSVEAFEUNESSRVSORON LSS anonruvwrOowmuernr 


Be Os Oe Be Oe Be Se Ss Ss Se Se Be Se Ge Ge Se Se Ge Se Ge Ge Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Ge Ge Sse Sse Ge Sse Se Se Se Se Se Sse Se Sse Sse Sse Sees te SsSeVseeesses 


CAPTION CAPTION = Generate figure. table and example ca 18-Sep-1984 $9: 30:98 AX-11 Oh eee V4.0-742 Page (3 


Vv04-000 INSRNT = Insert text directly into .RNT file 14-Sep-1 RUNOFF, APTION.BLI;1 
> 1161 1473 1 END; ‘ 
O3FC 0000 .ENTRY INSRNT, Save R2,R3,R4,R5,R6,R7,R8B,RP : 1417 ; 
9 99900006 EF 3 0092 MOVAB 1oBs+66 : 3 
8 000000006 EF 9E 0000 MOVAB $STRSTARGET, RB : 3 
? 00 006 EF 9€ 9019 MOVAB  LINE_INDENT.” : ; 
28 G EF 9€ 1 MOVAB EXTLIN 3 : 
5 00 06 EF 3 43 MOVAB LINE, R5 : : 
24 G EF 9€ MOVAB CMDBLK, R4 : ; 
3 99000 0G EF 9€ 000 ¢ MOVAB INTLIN, R3 : ; 
52 000000006 EF 9€ 000 OVAB LP, R2 : : 
SE 08 ¢ 990 A SUBL2 #8. SP : : 
04 AC 05 00030 TSTL LEN + 1450 ; 
01 14 00040 BGTR «i$ : ; 
04 O04¢ RET : ; 
000000006 EF 01 CE 00043 1$ MNEGL #1, HL_N + 1456 ; 
62 65 SE O004A MOVAB LINE, CP + 1457 ; 
63 D4 00040 CLRL —sOINTLIN : F 
66 D4 O004F CLRL —«EXTLIN : : 
67 20 As DO 90051 MOVL  INDENTS, LINE_INDENT + 1458 ; 
000000006 EF 67 00 9059 MOVL §LINE_INDENT, QRAP + 1459 ; 
66 67 DO 0005¢ MOVL LINE- INDENT, EXTLI + 1460 ; 
00000000G_  &F 18 A& DO 0005F MOVL CMDBLK+24, RMARGIN : 1461 3 
08 64 gt E1 00067 BBC #1, CMDBLK, 2$ + 1463 3 
00 B2 C 90 00068 mMOVB #60, aLP : : 
6¢ D6 0006F INCL LP : : 
4 D6 00071 INCL __INTLI : 3 
7E 04 Ac 7D 90075 2$ MOVa LEN, =(SP) + 1465 ; 
000000006 EF 02 FB 0007 CALLS #2, FMTTXT : ; 
08 64 01 Ei O007E BBC #1. CMDBLK, 3$ + 1467 ; 
00 B2 3E 90 0008 MOVB #62, aL ; : 
62 D6 00086 INCL LP : 3 
6 D6 00088 INCL INTLIN : ; 
6E 63 8B 0008, 3$ MOVW INTLIN, S$STRSSTRING + 1469 ; 
02 AE OE 90 0008D MOVB #14, SSTRSSTRING+2 : ; 
03 AE 01 90 00091 MOVB #1, SSTRSSTRING+3 : : 
04 AE 65 9E 00095 MOVAB LINE, $STRSSTRING*4 : ; 
000000006 EF F 00099 PUSHAB STRSFAILURE : 
E D4 0009F CLRL (SP) ; 
58 0D Al PUSHL R8 ; 
OC AE 9F OOOA PUSHAB $STRSSTRING : 
7E D4 O00A6 CLRL = (SP) : 
000000006 EF 05 FB OOAB ALLS #5, XSTSCOPY ; 
0 68 3 AF MOVZWL TMP RO : 
000000006 EF 5 OBe DL2 RO, CHROUT ; 
69 6 : B OVAB $10Bs0uTPUT. 10B$+68 : 
E8 Ag BC MOVB #7, I0B$+44 ; 
000000006 cf 9F 000C PUSHAB XPOSFAILURE ; 
: 4 000¢ CLRL = = (SP) ; 
BC Ad 9F 000C PUSHAB 1088 ; 
000000006 EF 3 F ¢ CALLS #3, XPOSPUT : 
64 .on D ¢ #1. CMDBLK, 4$ : 
000000006 EF 0 FB 000D CALLS #0. SPLIT : 
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CAPTION CAPTION = Generate figure, table and example ca 15. -Sep-1984 AX-11 Bliss-32 V4.0-742 Page 48 
yo4~000 INSRNT = Insert text arectly nto .RNT tile 14-Sep- O71 884 93: 08: RUNOFF. SRCICAPT ION N.BL1;1 . (35 
62 $3 4 DD 4$: MOVAB LINE, LP 3; 1470 ; 
63 D E CLRL ~—sINTLIN : ; 
66 i E CLRL EXTLIN ; : 
4 OO0E RET 3: 1473 : 
; Routine Size: 229 bytes, Routine Base: $CODE$ + 158E : 
; 116¢ 1474 1 : 
; 116 1475 1 END ! End of module 
> 1164 1476 0 ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
: SPLITS 200 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; SOWNS $i$ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, ele ar ients: 
; SCODES 5747 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Boe ie ei enna eer Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBIJXPORT.L32;1 590 156 26 252 00:00.1 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:CAPTION/OBJ=OBJ$:CAPTION MSRC$:CAPTION/UPDATE=(ENH$: CAPTION) 
Size: 5747 ae eh + 416 data bytes 
; Run Time: 


Elapsed Time: $2: 53.0 
; Lines/CPU Min: 540 
Lonenne st Pyrite: 96060 
ponery Se 901 pages 
Compi Rv nes Complete 
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